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DEC EDUCATIONAL PUBLICATIONS 


Other publications in the continuing series of curriculum material 
- published by DEC for use with EduSystems 10 through 80 are listed 
below. Please inquire directly for prices on classroom quantities. 


Additional publications may be obtained from: 
Software Distribution Center 


Digital Equipment Corporation 
Maynard, Massachusetts 01754 


Populution: Self-teaching BASIC Workbook $2.00 
BASIC Application Programs 
Mathematics I 1.00 
Mathematics II 1.00 
Science 1.00 
Business/Social Studies 1.00 
Plotting 1.00 
BASIC Matrix Operations 1.00 


Huntington I Application Programs 
MATHEMATICS 2.00 
TEACHER ASSISTANCE 1.00 


Huntington I Simulation Programs 


BIOLOGY 1.00 
CHEMISTRY 2.00 
EARTH SCIENCE 1.00 
PHYSICS 2.00 
SOCIAL STUDIES 1.00 


Problems for Computer Mathematics 1.25 


HUNTINGTON COMPUTER PROJECT 


A TEACHER'S MANUAL 
(COMPUTER - RELATED MATERIALS) 
Second Edition 


January 31, 1971 


Director: Dr. Ludwig Braun 
Assistant Director: Dr. Marian Visich, Jr. 


Polytechnic Institute of Brooklyn 
333 Jay Street 
Brooklyn, New York 11201 


Developed by the Huntington Computer Project during the period 
May, 1968 and September, 1970. This effort was supported by the 
National Science Foundation under Grant No. J000079. 


© 197), Polytechnic Institute of Brooklyn 


- #2 


The enclosed material is a compilation of computer programs 
developed during the period May, 1968 to Septomber, 1970, These 
programs were developed by teachers and students in the high schools 


which participated with us, and by the Project staff. 


All of the enclosed programs have been tested on a Digital 
Equipment Corporation TSS-8 time-shared computer during the summer 
of 1970, To the best of our ability, we have assured ourselves 
that the programs actually run, It should be pointed out, however, 
that we were not able to make an exhaustive exploration of the pro- 
grams, There may be undiscovered bugs (if there aren't, it may be 
the first time in the history of computing). We would appreciate 


hearing of any which emerge in the future, 


These programs run in the version of BASIC which existed on 
the TSS-8 in August, 1970, and should run on most other versions of 
BASIC. The major potential problem on other machines is the output 
format (DEC uses 14 columns per print zone, while some other manu- 
facturers use 15; we used the TAB function, which doesn't exist in 
all BASIC compiles), It may be necessary to make some minor 
changes in programs to adjust this format, Another possible 
problem is in the use of the RANDOMIZE command in some programs 
to start the random-number generator at a random point. If this 
command is not available, some other means should be devised for 


randomizing the start. 


It is our sincere hope that these programs and their sup- 
porting documentation will be helpful to educators who are explor- 


ing the uses of computers in education, 


We are anxious to hear of any bugs, errors, or improvements 
in these programs, and are especially anxious to hear of any novel 


ways of using them. 


Ludwig Braun 


Marian Visich, Jr. 


TABLE OF CONTENTS 


MAT. TICS 
Program Name 
ARITH 


Review of multiplication skills. (General Math) 


BANK 
Solves financial problems concerning installment 
buying, long term loans, and savings accounts. 


CRVLEN 
Computes the length of any curve. (analytically 
defined) 


CVAREA 
Computes the area under any curve. (analytically 
defined) 


GCD 
Finds the greatest common divisor of any set of 
numbers. 


LIMSIN 
Evaluates the limit of sin x/x as x approaches zero, 
in both radian and degree measure. 


PI2 
Computes the area of a circle using both inscribed 
and circumscribed regular polygons. 
PLOTTR 
Plots the graph of any function. 
PRIFA 
Finds prime factors. 
QUADRT 
Describes the graph of the second-degree equation, 
Ax2 + Bxy + Cy? + Dx + Ey + F = 0. 
RATIO 
Solves for the unknown in a proportion. 
ROOTS 2 


Finds the real roots of the quadratic equation 


ax? + bx tc = 0. 


10 


13 


18 


21 


25 


29 


37 


40 


43 


46 


MATHEMATICS (cont.) 


SETS 
Finds the union and intersection of any two numerical 
sets. 


SIMEON 
Finds solutions to sets of up to ten simultaneous 
equations. 


SLOPE 
Computes the tangent slope for any function. 


' SQRT 
Finds the square root of counting numbers up to five 
decimal places. 


STATAL 
Calculates the arithmetic mean (average) of a set of 
numbers. 


STOCK 
Simulates the stock market. 


SURFAR 
Computes the area of any surface of revolution. 


VOLSOL 
Finds the volume of solids of revolution. 


49 


53 


58 


62 


65 


69 


80 


83 


DISCIPLINE MATHEMATICS 9th YEAR 

SUBJECT MULTIPLICATION INVOLVING 
ONE AND TWO DIGIT MULTIPLIERS 

PROGRAM NAME ___ ARITH 


« DESCRIPTION: 


, This program calls upon students, in a random fashion, to perform 
multiplication problems. Each student calculates five separate problems, and is 

e allotted three chances to respond with the correct answer. At the conclusion of 
three incorrect responses, the computer will report to the student the correct 
answer. Attheconclusion of five problems, the student will be given a score, and 
a new student will be called. Each factor will not exceed 100. 


OBJECTIVES: 


To review and reinforce students' ability to multiply by one and two 
digit multipliers. 


PRELIMINARY PREPARATION: 
; None 
7 
DISC USSION: 
A Operational Suggestions - This particular program is designed for group study, 
and may be ase for an entire period. A portable TV was originally used to 
display computer output. 


B. Follow-up - By modifying line numbers 520 and 560 to 


520 LET X =A+B 
560 PRINTA'4! Bott att, 


e this program becomes practice in addition. Modifications may also be made for 
division, subtraction and individual remedial work. 


© C. MODIFICATION-If your computer has string capability, student names may be used 
rather than student numbers, by making a few minor programming changes. This 
change (having the computer type out the student's name) increases the student 
interest. 


Math 
ARITH 


HELLO CLASSeeeeeTODAY I WANT TO REVIEW MULTIPLICATION 

WITH YOU. WHEN I CALL ON YOU PLEASE COME UP AND TYPE IN 
Your ANSWERSe IF YOU ARE WRONG YOU GET TWO MORE CHANCES. 
HOW MANY STUDENTS ARE THERE IN THE CLASS TODAY? 30 


TEACHER! ««eGIVE EVERYONE A NUMBER FROM 1 TO 30 


OKs STUDENT NO- 27 IT*S YOUR TURN! 


GIVE ME YOUR LUCKY NUMBER 
25 


81 X% S54 2 ? 4374 
YOU*RE RIGHT STUDENT NO- 27 


63 X 97 = ? 6111 
YOU'RE RIGHT STUDENT NO- 27 


62 X% 17 = ? 1054 
YOU'RE RIGHT STUDENT NO- 27 


5O X 78 = 2? 3900 
YOU'RE RIGHT STUDENT NO- 27 


93 X 6&1 = ? 7533 

YOU'RE RIGHT STUDENT NO- 27 

YOU GOT S RIGHT OUT OF 5 PROBLEMS. 
GOODBYE~«+eSTUDENT NO« 27 


OK» STUDENT NO- 25 IT'S YOUR TURN! 


GIVE ME YOUR LUCKY NUMBER 
? 
tC 


READY 
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REM We TEPPER» WYANDANCH HS» 4/21/69 
REM REVISED BY CeLOSIK 6-5-70 
REM WE DO A RANDOM PROBLEM FOR EACH STUDENTs A -OP- B 


REM THIS PROGRAM CALLS STUDENTS IN A RANDOM FASHION TO DO INDIVIDUAL 


REM PROBLEMSe BY MODIFYING A FEW STATEMENTS I CAN CHANGE THE 
REM TYPE OF PROBLEMS- 

REM REVISED 5/7/69 

PRINT “HELLO CLASS«eeceeeTODAY I WANT TO REVIEW "5 

REM CHANGE BELOW FOR YOUR OPERATION 

PRINT “ MULTIPLICATION" 

PRINT , 

PRINT “WITH YOU. WHEN I CALL ON YOU PLEASE COME UP AND TYPE IN" 
PRINT 

PRINT “YOUR ANSWERS- IF YOU ARE WRONG YOU GET TWO MORE CHANCES." 
PRINT 

PRINT “HOW MANY STUDENTS ARE THERE IN THE CLASS TODAY'S 
INPUT S 

PRINT 

PRINT “TEACHER! -«-eGIVE EVERYONE A NUMBER FROM 1 TO"S 
PRINT 

PRINT 

PRINT 

REM YOU MUST RANDOMIZE THE PROCESS FOR BEST RESULTS 
RANDOMIZE 

LET Q=INTCRND(-2)%*S) 

PRINT “OKs STUDENT NOs» "Q" IT*S YOUR TURN!" 

LET J=0 

LET L =0 

PRINT 

PRINT 

PRINT “GIVE ME YOUR LUCKY NUMBER" 

INPUT Z 

FOR T=1 TO Z@ 

LET A=INTCRND(-2)*100) 

LET BeINTCRNDC-5)*100) 

NEXT T 

LET N=0 

LET J=J+l 

REM X IS THE ANSWER TO A -OP- B 

LET X=A*B 

PRINT 

PRINT 

PRINT 

REM PRINT A -OP- B = 2? 

PRINT A™ X “BY = "5 

INPUT K 

IF ABSCK-X)<.005 THEN 590 

LET N=N+1 


ac Math 
aie ARITH 


IF N=3 THEN 530 

PRINT “YOU'RE WRONGeeeTRY AGAIN" 

GO TO 460 

PRINT "YOUR WRONG AGAIN" 

PRINT “THE ANSWER IS "X 

IF J<5 THEN360 

PRINT “YOU GOT “"L™ RIGHT OUT OF 20 PROBLEMS" 
PRINT "GOOD BYE ecoee STUDENT NOe"Q 

GO TO 250 

PRINT "YOU'RE RIGHT STUDENT NOe"Q 

LET L = L+l 

IF J<5 THEN360 

PRINT “YOU GOT "“L" RIGHT OUT OF 5 PROBLEMS." 
PRINT eo nee eS EUDENS NO-*Q 

GO TO 260 

END 
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DISCIPLINE MATHEMATICS-SOCIAL SCIENCE 





SUBJECT FINANCIAL PROBLEMS 


PROGRAM NAME BANK 


DESCRIPTION: 


This program solves financial problems concerning installment buying, 
long-term loans, and savings accounts. The program gives you a choice of these 
three types of problems, and asks for the information needed to do said problem. 


OBJECTIVES: 


A. This program aids students in learning the terms used in certain financial 
problems. 


B. Student will hopefully be motivated to learn the mathematical logic behind 
the solution of these problems. 


PRELIMINARY PREPARATION : 
A. Student. - A review of decimals and fractions would be helpful. 


B. Materials - A terminal, and a means by which to display the output to an 
entire class (e. g- overhead projector, closelcircuit TV, etc.) 


DISCUSSION: 


A type of problem may be demonstrated through the use of the computer, 
then the mathematical logic behind the solution of the problem may be developed 
through the use of a flow chart similar to the one that follows. 


Terminology may be taught when the computer asks for input (see sample 
run). 


Since the execution time of one run is extremely short, many more 
problems may be demonstrated. Depending upon the ability of the class or student, 
a variety of relationships may be discovered. 


Mat! 
DAN*. 
FINANCIAL PROBLEMS 
THIS PROGRAM SOLVES THREE TYPES OF PROBLEMS$ 
1) INTEREST ON INSTALLMENT BUYING 
€2) PAYMENTS ON LONG TERM LOAN 
€3) BALANCE OF A SAVINGS ACCOUNT 
WHICH PROBLEM WOULD YOU LIKE TO WORK WITH CTYPE i, 2 OR 3)? 1 


EERE 


THIS SECTION WILL DETERMINE THE ACTUAL INTEREST YOU PAY 
WHEN YOU PURCHASE SOMETHING ON CREDIT. 


WHAT IS THE CASH PRICE OF THE ARTICLE ($2? 66-99 
DOWN PAYMENT ($)? 10 
NUMBER OF PAYMENTS EXCLUDING THE DOWN PAYMENT? 18 
NUMBER OF PAYMENTS PER MONTH? 1 
AMOUNT PER PAYMENT ($)? 4:85 


THE RATE OF INTEREST CHARGED WAS 5¢69 PERCENT. 


AIR 


WOULD YOU LIKE TO RUN THE PROGRAM AGAIN C1-YESs O-NO)? 1 
WHICH PROBLEM WOULD YOU LIKE TO WORK WITH CTYPE 3. 2 OR 3)? 2 


+44E8 
THIS SECTION WILL DETERMINE PAYMENTS FOR A LONG TERM LOANe 
WHAT IS THE AMOUNT BORROWED ($)? 3000 

INTEREST CHARGED (2)? & 

INTERVAL BETWEEN PAYMENTS (MONTHS)? 1 

TERM OF THE LOAN CYEARS)? @ 


DO YOU WISH TO SEE THE TOTALS ONLY - INSTEAD OF THE ENTIRE 
TABLE - C1*YES» O-NO)? O 


OUTSTANDING 
PRINCIPAL AT PRINCIPAL 
: BEGINNING INTEREST DUE AT REPAID AT 
PERIOD OF PERIOD END OF PERIOD END OF PERIOD 
1 3000 20 315-68 
2 2884-32 19-23 116-45 
3 2767-87 18.45 117-23 
4 2650 «64 17067 118.03 
5 2532263 16-88 118-8 
6 2413-83 16-09 119-59 
7 2294.84 15-289 120-39 
8 2173-85 14049 121.219 
9 2052-66 13-68 122 
10 1930 66 12.87 122-81 
11 1807285 12.05 123-63 
12 1684-88 11.23 124.45 
13 155977 10.4 125.28 
14 1434-49 9-56 126.12 
is 1308-37 8.72 : 126096 
16 1131.41 7-88 127-8 
17 1053.61 7.08 128-66 
18 924095 6017 129-51 
19 795 044 $03 130.38 
20 665-06 4-43 131-25 
2i §33-81 3-56 132.12 
22 40169 2-68 133 
23 268-69 1-79 133.89 
- 24 134-8 9 134.78 
TOTALS 256034 300 


YOUR MONTHLY PAYMENT IS $ 135-66 AND TOTALS $ 3256+34 
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SHEER 


WOULD YOU LIKE TO RUN THE PROGRAM AGAIN (1-YES» O-NO)? 1 
WHICH PROBLEM WOULD YOU LIKE TO WORK WITH (TYPE 1s 2 OR 3297 3 


ehhh 


THIS SECTION CALCULATES THE BALANCE OF A SAVINGS ACCOUNT 
IN WHICH DEPOSITS ARE MADE REGULARLY. 


WHAT IS THE AMOUNT DEPOSITED PER INTEREST PERIOD ($97 10000 
HOW OFTEN IS THE INTEREST COMPOUNDED (MONTHS.? 3 


WHAT IS THE RATE OF INTEREST PAID (2)? 5 
FOR HOW LONG WILL YOU DEPOSIT MONEY (YEARS)? 5 


THE BALANCE OF YOUR ACCOUNT AFTER 5 YEARS WILL BE $ 2028500 


SHEED 


WOULD YOU LIKE TO RUN THE PROGRAM AGAIN (1-YES»s O-NO)? 0 


READY 


‘100 
101 
110 
415 
120 
130 
132 
134 
136 
138 
140 
142 
144 
146 
147 
148 
150 
155 
160 


270 
280 
esi 
285 
286 
290 
291 
295 
296 
300 
360 
361 
362 
on 
375 
380 
390 
400 
410 
420 
430 
440 
445 
446 
aso 
460 
261 
470 
4s0 
490 
500 
510 
520 
S22 
525 
530 
535 
541 
$48 
$50 


REM 
REM 


Math 
BANK 


FINANCIAL PROBLEMS Ae WEBB 12/67 
REVISED 8/25/70 (De PESSEL) 


PRINT TABC20)3"FINANCIAL PROBLEMS” 


REM 


REWISED BY We TEPPER» WYANDANCH HeSe 7/10/69 


PRINT 

PRINT”THIS PROGRAM SOLVES THREE TYPES OF PROBLEMSs” 

PRINT 

paler (1) INTEREST ON INSTALLMENT BUYING" 

PRINT” €2) PAYMENTS ON LONG TERM LOAN 

PRINT” €3) BALANCE OF A SAVINGS ACCOUNT” 

PRINT 

PRINT" WHICH PROBLEM WOULD YOU LIKE TO WORK WITH (TYPE 1» 2.0R 3)°3 
INPUT Qi 

PRINT 

PRINT’ #42e4" 

PRINT 

IF Q1>2 THEN 820 

IF Q1>1 THEN 260 

GO TO 590 : 
pana aks “THIS SECTION WILL DETERMINE PAYMENTS FOR A LONG TERM LOAN.” 
PRINT , 

PRINT“ WHAT IS THE AMOUNT BORROWED (35)"3 

INPUT A 

PRINT” INTEREST CHARGED (%)3 

INPUT I 

PRINT” INTERVAL BETWEEN PAYMENTS (MONTHS)'*3 

INPUT P , 

PRINT” TERM OF THE LOAN CYEARS)'3 

INPUT ¥ 

PRINT 

PRINT"DO YOU WISH TO SEE THE TOTALS ONLY - INSTEAD OF THE ENTIRE’ 
PRINT"TABLE - €1-YESs O-NO)"3 

INPUT P5 

Fei 

IF P5>0 THEN 430 

PRINT® OUTSTANDING” 

PRINT” PRINCIPAL AT PRINCIPAL" 
PRINT* BEGINNING INTEREST DUE AT REPAID AT" 
i Arica OF PERIOD END OF PERIOD END OF PERIOD” 
PRINT — 


LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 


Z=aCY¥*12)/P 
KaCI*#(P712))7100 
ERAtK/ (1-170 14K) 9Z) 
Es INT(E*100++5)7100 
C=A 

F=0 

D120 

Ti=0 

TinTiel 


IF T1>Z THEN 554 


LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 


BeT1 

CaCoF 

DuCskK 

F2E-D 
CuINT(C#100405)7100 
De INT(D#1004-5)7100 
FeINTCF*100+-5)7100 
DisD1+D 


IF P5>0 THEN 480 : 
PRINT BSTABC11)3C3TABC29) 3D3 TABCAS) 3F 
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Math 


BANK 
GO TO 480 : 
IF PS<] THEN 561 es 
PRINT , 
LET DisINT(D1#*1004e52/100 
PRINT"TOTAL INTEREST PAID - $"D1 
PRINT"TOTAOL PRINCIPAL REPAID - $"A 
GO TO S65 « 


PRINT“ e2eecnwowaeeena eee ceecoacan 


a PRINT*TOTALS" 5 TAB(C29)3D13TABCAB)3A 


LET ES#INTCCDI+A) #10046557100 

PRINT 

LET E6=ES/(CY*12)/P) 

LET E6=INT(C100*E64.5)/100 

PRINT"YOUR MONTHLY PAYMENT 1S S"“E6" AND TOTALS $"ES 
GO TO 1060 

PRINT"THIS SECTION WILL DETERMINE THE ACTUAL INTEREST YOU PAY** 
PRINT"WHEN YOU PURCHASE SOMETHING ON CREDIT."*” 
PRINT 

PRINT’ WHAT IS THE CASH PRICE OF THE ARTICLE ($)*3 
INPUT C 

PRINT" DOWN PAYMENT ($)"3 

INPUT D 


PRINT® NUMBER OF PAYMENTS EXCLUDING THE DOWN PAYMENT"*3 


INPUT N 

PRINT" NUMBER OF PAYMENTS PER MONTH"’3 
INPUT S 

PRINT" AMOUNT PER PAYMENT (8)"3 
INPUT R 

PRINT 

LET BsR*N+D 

LET IsB-C 

LET MaN/(S#12) 

LET T#I%100/(BeM) 

PRINT 

PRINT 

LET T#INTC100#T+.5)/100 


78OPRINT “THE RATE OF INTEREST CHARGED WAS"T" PERCENT.” 


790 
ee 
839 
840 
860 
861 
870 
871 
860 
881 
890 
891 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
{040 
1045 
1050 
1060 
1070 
1080 
1081 


GO TO 1060 
FRAN IRL SBUSAUN CALVULAIES ‘cit GALE Ur A onvinas ALVGUUING: 
PRINT"IN’ WHICH DEPOSITS ARE MADE REGULARLY.” et 
PRINT : 
PRINT" WHAT IS THE AMOUNT DEPOSITED PER INTEREST PERIOD ($)"3 
INPUT A 
PRINT"HOW OFTEN IS THE INTEREST COMPOUNDED (MONTHS)"*3 

INPUT B 
PRINT’ WHAT IS THE RATE OF INTEREST PAID (29"3 

INPUT C 
PRINT"FOR HOW LONG WILL YOU DEPOSIT MONEY CYEARS)"3 

INPUT D 
LET Fs0 
LET E=(C/100)/¢12/B) 
LET G#(12/B)%D 
LET TisO 
LET TisT1i+1 

IF TilsG¢!1 THEN 1030 

LET Fat E*A)+(A+P) 

GO TO 990 

PRINT 

PRINT 

LET FaINT¢( 100*F+.5)/100 

PRINT“THE BALANCE OF YOUR ACCOUNT AFTER “D"YEARS WILL BE $"F 
PRINT 

PRINT 

PRINT 

PRINT" ae4%4° 


_ 1082 PRINT 
1084 PRINT*WOULD YOU LIKE TO RUN THE PROGRAM AGAIN (1-YESs 0-NO)"3 


1086 
1090 
\ 1160 


INPUT a4 
IF Q4>0 THEN 142 
END 


DISCIPLINE CALCULUS-GRADE 13 
SUBJECT LENGTH OF ANY CURVE 


PROGRAM NAME _ CRVLEN 





DESCRIPTION: 


This program approximates the length of any curve between two 
fixed points on the curve, by taking an increasing number of subintervals 
and computing the sum of the secants involved. 


OBJECTIVES: 
A. Time saving factor for computations. 


B. By typing out successive approximations, the machine displays the 
manner by which the limit is approached. 


C. The attendant discussion focuses attention upon the techniques needed 
to build up the analytic method for finding the length of a curve. 


PRELIMINARY PREPARATION: None 


DISCUSSION: 


The operator inserts any function, sets up his own limits, and the 
computer proceeds to print out several approximations to the actual length 
a diagram (such as below) should be displayed, indicating the geometric 
basis for the computations. 





Piecewise linear approximation of a smooth. curve 


10 
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Math 
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LENGTH OF A CURVE 


THIS PROGRAM APPROXIMATES THE LENGTH OF ANY CURVE BET VEEN 
TWO POINTS HAVING P AND Q@ AS THEIR RESPECTIVE ABSCISSAS. 

THE PROGRAM DIQIDES THE CURVE INTO INCREASING NUMBERS OF 

SOBINTERVALS, JOINS THESE WITH SECANTS AND FINDS THE SUM 

OF THESE SECANTS- 


TO INPUT THE FUNCTION WHICH YOUR CURVE REPRESENTS, TYPE AS 
FOLLOWS AFTER THE PROGRAM STOPS: 
(TYPE THE ‘RETURN*® KEY AFTER EACH LINE INCLUDING °RUN®) 


4 @0 TO 200 
300 DEF FNYC(X)a.c¢eCYOUR FUNCTION OF Xdeoee 
RUN 


FOR EXAMPLE» TO USE THE FUNCTION 24X13+3eX1Q-2eXe3 
YOU WOULD TYPEs 


1 60 TO 800 
300 DEF FNY(X)aQeXt9+39X18-24X43 
RUN 


YOU MIGHT TRY THAT AS YOUR FIRST RUN. 


READY 


4 @@ To 900 
300 DEF FNY(X)eB9X 2 34+399X 1B-geXe3 
RUN 


WHAT ARE THE ABSCISSAS OF THE END POINTS OF THE INTERVAL 
WHOSE LENGTH YOU WANT CSWALLER OWE FIRSTSP.Q)7 -156 


NUMBER OF SUM OF 
SUBINTERVALS SECANT LENGTHS % CHANGE IN LENGTH 


i 5285-0467 NO PREVIOUS VALUE 
a 585-1583 02125148 

4 529-6522 °65$ 7363 

8 531.0171 02576957 

16 531.9648 °1783563 

32 538 00166 9e834262E-3 

64 532-0416 4¢713729E~3 

128 5328-0485 §e287718E°3 

256 538-0801 3206868 7E-4 


SeeeeR 

WOULD YOU LIKE TG TRY NEW END POINTS (1°¥ESs 0-NO)? O 
TO TRY ANOTHER FUNCTION, RETYPE LIWE 300s AND ‘RUN‘. 

SEE INSTRUCTIONS FOR MORE DETAILS. IF YOU ARE FINISHED. 
TYPE °1° AND *RETURN’ KEY AFTER THE PROGRAM STOPS. — 
READY 

| 
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Math 
CRVLEN 


REM LENGTH OF A CURVE-QeJ- O*CONNOR 7-29-68 
REN REVISED &-7-70 (De PESSEL) (COMBINATION OF LECUG & LEFUQ) 
REM IMPORTANT VARIABLES: S-SECANT LENGTR3 S1-PREVIOUS SECANT 
REM CENGTH3 P-PERCENT CHANGE IN SECANT LENGTH 
per-pla TABC20)3 “LENGTH OF A CORVE” 
PRINT 
PRINT “THIS PROGRAM APPROXIMATES THE LENGTH OF ANY CURVE BETWEEN” 
PRINT “TWO POINTS HAVING P AND @ AS THEIR RESPECTIVE ABSCISSAS.” 
PRINT “THE PROGRAM DIVIDES THE CURVE INTO INCREASING NUMBERS OF" 
PRINT “SUBINTERVALS» JOINS THESE WITH SECANTS AND FINDS THE SUK” 
PRINT “OF THESE SECANTS.” 
PRINT 
PRINT “TO INPUT THE FUNCTION WHICH YOUR CURVE REPRESENTS» TYPE AS” 
PRINT “FOLLOWS AFTER THE PROGRAM STOPSs" 
PRINT “CTYPE THE ‘RETURN’ KEY AFTER EACH LINE INCLUDING °RUN*')” 


PRINT 

PRINT 1 60 TO 200" 

PRINT “ 300 DEF FNY(X) mo oo 6C YOUR FUNCTION OF Xdeoee” 
PRINT ° RUN” 

PRINT | 

PRINT “FOR EXAMPLE, TO USE THE FUNCTION 24#X1#3434X?2-24X%43" 


PRINT “YOU WOULD TYPES” 

PRINT 

PRINT “ t @0 TO 200” 

PRINT * 300 DEF FNY(X)#2#X139434X% t2-24X43" 
PRINT * Ruw” 

PRINT — 

parted “YOU MIGHT TRY THAT AS YOUR FIRST RUN.” 

ST i 

REM CALCULATION AND PRINTING IF RESULTS 


PRINT “WHAT ARE THE ABSCISSAS OF THE END POINTS OF THE INTERVAL” 
PRINT “WHOSE LENGTH YOU WANT (SMALLER ONE FIRST sP.Q)*3 

INPUT P.Q 

iF P<Q@ THEN 213 

PRINT “P MUST BE LESS THAN Q!° 


) GO TO 807. 


INPUT Ps@ 

PRINT 

PRINT “ NUMBER OF*.” SUM OF* 

PRINT “SUBINTERVALS" »"SECANT LENGTHS“»“ % CHANGE IN LENGTH” 
PRINT Hamemaanaecoe® mc wmaccesonowe™ ,f sewaveevcconeeenon® 
PRINT 

LET Si#0 

FOR Nei TO 9 

DEF FRYCX)e24X 8 34+34X 1 2- 24X43 

LET E=21(f-1) 

LET He(Q-P)7E 

LET SeO 

FOR I#0 TO E-1 

LET L#eSQR¢ CPNY (P41 ¢H+H) -FNY(P +1 4H) ) t2eHeH) 

LET S#S+L 

WEXT 1 

IF S130 THEN 375 

PRINT EsSe* NO PREVIOUS VALUE” 

@O0 TO 385 

LET P5=8( (ABSCS1-S))/S1)*100 

PRINT EsSs* “PS 

LET SiesS 

NEXT 8 

PRINT 

PRINT “see00¢" 

PRINT 

PRINT “WOULD YOU LIKE TO TRY NEW END POINTS (1-YESs O-NO)"3 
INPUT Q1 

IF Q1>0 THEN 210 

PRINT 

PRINT “TO TRY ANOTHER FUNCTION,» RETYPE LINE 300. AND °RUN*.” 
PRINT “SEE INSTRUCTIONS FOR MORE DETAILS. IF YOU ARE FINISHED.” 
PRINT “TYPE °1° AND *RETURN* KEY AFTER THE PROGRAM STOPS.* 
END 


DISCIPLINE CALCULUS - GRADE 13 
SUBJECT AREA UNDER ANY CURVE, 

(ANALYTICALLY DEFINED) 
PROGRAM NAME  cCVAREA 


DESCRIPTION: 


By numerical methods, this program evaluates the definite integral 


of f(x), from x=a to x=b, by four different methods of successive approxi- 


mation: 
I Rectangles (starting with f(a) as height) 
II Rectangles (starting with f(ath) as height) 
III Trapezoids 
IV Parabolas (Simpson's Rule) 
OBJECTIVES: 
A. Enhances comprehension of the analytic procedures for finding the area 


under a curve. 
Dramatizes the limiting processes involved. 


Decreases the time needed for lengthy computations. 


PRELIMINARY PREPARATION: 


Prior to the computer run, diagrams should appear on the board, 


or on the overhead projector screen to demonstrate the geometric significance 
of the computer output. 


y = £(x) 






» 


Starting with 
f(a) as height 


Inscribed Rectangular Approximation 
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CVAREA 


y= £(x) 






Starting with 
f(a + h) as height 


a b 
Circumscribed Rectangular Approximation 


DISCUSSION: 


This program may berun as an introduction to the problem of 
finding the area under a curve. In some classes, the consideration of 
Simpson's Rule may be omitted or briefly hinted at. With the more 
mathematically talented classes, an explanation of this parabolic 
approximation should precede the running of the program. — 


y 





Trapezoid Approximation Ay 
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Mathematics 
CVAREA 


AREA UNDER A CURVE - INTEGRATION 


THIS PROGRAM EVALUATES THE DEFINITE INTEGRAL OF FCA) 
FROM A=A TO A=B BY FOUR METHODS OF NUMERICAL APPROXIMATIONS 


I RECTANGLES CINITIAL HEIGHT OF FCA)) 
Ii KECTANGLES CINITIAL REIGHT OF FCA+t+H)) 
III TRAPEZOIDS 

IV PARABOLAS CSIMPSON'S RULE) 


AFTER THE PROGRAM STOPSs YOU MAY ENTER YOUR FUNCTION AS FOLLOWS: 


1 GO TO 200 
300 DEF FNYCX)Se6eeCYOURK FUNCTION OF Adeece 
RUN 


FOR EXAMPLEs TO FIND THE AREA UNDER THE CURVE YeAt3 YOU 
WOULD TYPES 


1 GO TO 200 
300 DEF FNYCAD2AI3 
RUN 


YOU MIGHT TRY THAT AS YOUR FIRST RUN. 

END EACH LINEs INCLUDING ‘RUN's WITH THE ‘RETURN’ KEY. 
READY 

1 GO TO 200 

300 DEF FNYCAISX13 

RUN 


WHAT AKE YOUR VALUES FOK A AND B CSMALLEH FIKST2AsB)? 1510 


NUMBER OF Ie SUM OF II. SUM OF IIiIe SUM OF IVe SUM OF 
SUBINTERVALS RECTANGLES RECTANGLES TRAPEZOIDS PARABOLAS 
2 75361875 5246 e657 3000 0937 2499-75 
4 1501-172 3746-922 2625 0047 2499475 
& 19696137 3093-012 2531-074 2499075 
16 2226-612 2766655 2507-551 2499¢75 
32 2361-223 2642-192 2501-706 2499075 
64 2429-997 2570 e461 2500 e239 © 2499 675 


NOTE THAT SIMPSON'S RULE (IV) CONVERGES FASTEST. 


WOULD YOU LIKE TO TRY NEW VALUES FOR A AND B C1-YESs O-NO)? VU 


22K ok OK 


TO USE A NEW FUNCTION YOU NEED ONLY RETYPE LINE 300 
AND "RUN". SEE INSTRUCTIONS FOR MORE DETAILS. 
IF YOU ARE FINISHED, TYPE ‘1° AND THE ‘"RETUHN' KEY. 


READY 
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REM AREA UNDER A CURVE-QeJde O'CONNOR 
‘REM REVISED 6/18/70 (De PESSEL) (COMBINATION OF bDEFIN AND ACCU) 
REM IMPORTANT VARIABLES: D-# UF SUBINTEKVALS3 AREA BY 


RECTANGLES (FCA) -Ps BY RECTANGLES CF CA+H) ) <> 
BY TRAPEZOIDS-Ts BY PARABOLAS-S3 C-STORES PitE VIOUS 


REM VALUE OF Se 

PRINT TABC15)3 "AREA UNDER A CURVE - INTEGHATION" 

PRINT 

PRINT " THIS PROGRAM EVALUATES THE DEFINITE INTEGHAL OF F(X)" 
PRINT "FROM X=A TO “5B BY FOUR METHODS OF NUMERICAL APPROAIMATION:" 
PRINT 


PRINT TABC20)3 
PRINT TABC19)5 
PRINT TABC18)3 
PRINT TABC19)3 


"I RECTANGLES CINITIAL HEIGHT OF FCA)" 
"II RECTANGLES CINITIAL HEIGHT OF FCAtH))" 
“III TRAPEZOIDS" 

"IV PARABOLAS CSIMPSON'S RULE)" 


PRINT 

PRINT "AFTER THE PROGRAM STOPS; 
PRINT " FOLLOWS:" 

PRINT 

PRINT TABC13)3 
PRINT TABC13)3 
PRINT TAB(13)3 
PRINT 

PRINT "FOR EXAMPLE, 
PRINT "WOULD TYPEs" 
PRINT 

PRINT TABC13)3"1 GO TO 200" 

PRINT TABC13)3"300 DEF FNYCX)=xX1t3" 

PRINT TABC13)3"RUN" 

PRINT 

PRINT "YOU MIGHT TRY THAT AS YOUR FIRST KUN." 
PRINT “END EACH LINE» INCLUDING "RUN's WITH THE 
STOP 

PRINT "WHAT ARE YOUR VALUES FOR A AND B (SMALLER FIRST:A,B)"3 
INPUT AsB 

IF B>=A THEN 210 

PRINT "A MUST BE LESS THAN BI" 

GO TO 200 : 2 
PRINT 
PRINT " NUMBER OF">"I. 
PRINT "IV. SUM OF" 
PRINT "SUBINTERVALS", "RECTANGLES" » "RECTANGLES" »s "THAPEZOIDS"s 
PRINT “PARABOLAS" 


YOU MAY ENTER YOUR FUNCTION AS"S 


"1 GO TO 200" 
"300 DEF FNYCA)=eeeC YOUR FUNCTION OF X)eeoe" 
“RUN 


TO FIND THE AEA UNDER THE CURVE Y=A41t3 YOU" 


"HETURN* KEY." 


SUM OF"s"I1- SUM OF"s"III- SUM OF"'s 


5=0 

FNY (AX) =X13 
M=SM+3° 

N=M TO Mte 
C=S 

Q=0 

P=0 

D=2tNn 
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CVAREA 


PRINT Ds 

LET H=s(B-A)/D 

FOR IsO TO (D-1) 

LET Pa#P+H*FNYCA+4I1*H) 
LET Q@2Q+H*FNY CA+1*H+H) 
NEXT I 

PRINT PsQ;5 

LET T=(P+Q)/2 

PRINT Ts 
LET U=FNYCA)+FNY(B) 

FOR J#2 TO (D-2) STEP 2 
LET U2U+¢2*«FNY (A+J*H) 
NEXT J 

LET V=0 

FOR Kel TO (D-1) STEP 2 
LET V=2V+4*FNYCA+K*H) 
NEXT K 

LET S#(CU+V) *CH/3) 

PRINT S 

NEXT N 


. IF D<64 THEN 310 


IF ABS((C-S)/0€(C+S)/2))>e0001 THEN 310 
PRINT 


PRINT "NOTE THAT SIMPSON'S RULE (1V) CONVERGES FASTEST." 


PRINT 

PRINT “WOULD YOU LIKE TO TRY NEW VALUES FOR A AND B (1-YESs O=-NO)"*S 
INPUT Q5 

PRINT 

PRINT "eke x"! 

PRINT 


IF @5>0 THEN 200 


PRINT “TO USE A NEW FUNCTION YOU NEED ONLY RETYPE LINE 300" 
PRINT "AND *RUN'e SEE INSTRUCTIONS FOR MORE DETAILS." 
PRINT “IF YOU ARE FINISHED» TYPE ‘1° AND THE 'RETURN’ 


END 
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DISCIPLINE MATHEMATICS, JR.HIGH 
GENERAL MATH 
SUBJECT GREATEST COMMON DIVISOR 


PROGRAM NAME GCD 


DESCRIPTION: 


This program finds the greatest common divisor for two or more 
numbers. 


OBJECTIVES: 

To aid the teacher in demonstrating a method of finding the 
greatest common divisor. 
PRELIMINARY PREPARATION: 


See discussion. 


DISC USSION: 


It is suggested that the teacher explain the meaning of the 
greatest common divisor prior to using this program, and show a 
number of examples. 


By using the flow chart which follows, the method and logic 
the computer uses, can be explained to students. It is suggested that a 
supplementary device be used to display output to class-size groups. 
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THIS PROGRAM WILL FIND THE GREATEST COMMON DIVISOR 


MORE NUMBERS. 
AoW MANY. NUMBERS DO YOU WISH TO INVESTIGATE? 3 
TYPE IN THE RUMBERS, ONE AFTER EACH QUESTION MARK~ 


THE NUMBERS 18 36 96 HAVE THE GeCoBe 18 


ANOTHER SET OF NUMBERS (CISYESs Q2N0) 7 1 
HOV HANY NUMBERS DO YOU WISH TO INVESTIGATE? 3 
TYPE IN THE NUMBERS» ONE AFTER EACH QUESTION MARK. 


? 96 
THE NUMBERS 230 36 96 HAVE THE GeCoDe 4 


ANOTHER SET OF NUMBERS (1=YESs OeN0? 7 1 
HOW BANY NUMBERS DO YOU GISH TO INVESTIGATE? 3 
Mats IN THE NUMBERS. ONE AFTER EACH QUESTION HARK. 


THE NUMBERS 80 36 97 ARE RELATIVELY PRIME. 
ANOTHER SET OF NUMBERS (1*YES» O=N0) 7? 0 


READY 
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REM Ve TEPPER WYANDANCH H-S-e - MATHEMATICS 

REM REVISED BY C-LOSIK 8-10-70 

REM X(33 ARE THE NUMBERS (UP TO 100) 

PRINT “TRIS PROGRAM WILL FIND THE GREATEST COMMON DIVISOR” 
PRINT "FOR TWO OR NORE NUMBERS. 

DIR XC 100) . 

ok gal MANY NUMBERS DO YOU WISH TO INVESTIGATE™3 

2F ABSCN-INTCM))<.0001 THEN 170 

PRINT “TRY AGAIN.” 

@0 TO 150 

PRINT “TYPE IN THE NUMBERS,» OWE AFTER EACH QUESTION MARK.” 
LET Sel E25 

FOR Kei TO N 

IMPUT X¢K) 

IF XCK)>S THEN 310 

LET SeX(K) 


FOR M=8 TO S 
FOR Is) TON 
EF XC1) /M<>IMTCXCED/MD THEN 300 


QEXT I 


LET Gam 

NEXT HM 

PRINT “THE NUMBERS” 3 
FOR T#I TO & 

PRINT X(T)3 

WELT T 


T 
LF G>0 THEN 380 

PRINT “ARE RELATIVELY PRIME.” 
@o°T9 390 

PRINT “HAVE THE GeC.D. “36 
PRINT 


PRINT 

PRINT “ANOTHER SET OF NUMBERS (1eYESs O=NO) "3 
IMPUT Z 

if Zel THEN 150 

iF Ze0 THEN 470 

PRINT “TYPE 1 OR O AS DIRECTED.“ 

GO TO 480 

ERD 
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DISCIPLINE CALCULUS - GRADE 13 
hl [CO 
SUBJECT LIMIT OF “x 





PROGRAM NAME LIMSIN 





DESCRIPTION: 
sin x 
This program demonstrates that the limit of ~ x » aS x approaches 
0, equals 1, provided x is measuredin radians. If x is measured in degrees, 
the limit equals approximately . 017. 


OBJECTIVES: 
sin x 
A. To demonstrate the manner by which the limit of x is approached. 
B. To show that degree measure does not yield the same solution as 
radian measure, 
PRELIMINARY PREPARATION: 
A. Student 
- Knowledge of degree vs. radian measure. 


B.. Materials 


None 


DISCUSSION: 


Following the computer type-out, the teacher will use the analytic 
method to evaluate the limit. Prior to this discussion, the student should 
be reminded of the area formulas for a triangle and for a sector in terms 
of the central angle measured in radians, A geometric diagram should be 
presented showing the sector lying between two triangles. 


T 


1 
Here, ar sino ec 47°O@ < 4y2tan © 
Circular Sector with Circumscribed and Inscribed Triangles 
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Calculus - 
LIMSIN 


The teacher can modify the type-out by inserting: 195 Go to 300. 
This decreases the number of lines typed out to the final eleven appearing 
on the program "run". 
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THIS PROGRAM DEMONSTRATES THAT THE LIMIT OF 
F(X) = (SIN X)/Xs AS X APPROACHES O» IS EQUAL TO I» 
PROVIDED X IS MEASURED IN RADIANS. 


SINCX) 
LIMIT s-2--- = 1 
X-->0 x 

WIEN X IS IN DEGREES, WHEN X 1S IN RADIANS,» 

x Is F(X) IS x 1S FCX) IS 
90 eOLLI2111 16570795 °6366203 
65 001171994 1.483529 ©6715035 
80 °01231009 1.396262 © 705317 
75 001287901 16308996 ©7379134 
70 001342418 1.221729 © 7691492 
65 001394319 1134463 © 7988866 
60 001443375 1.047197 8269936 
55 001489367 °9599303 °8533449 
50 °0 1532088 °8 726639 8778225 
45 001571347 © 7853975 °9003165 
40 001606968 06981311 °920 7256 
35 001638789 °6108647 09389575 
30 °0 1666665 052835983 09549297 
25 001690472 °4363319 09685698 
20 001710099 °3490656 °9798156 
15 001725459 °2617992 °988616 
10 00173648 01745328 °9949308 
5 001743113 °08 726639 °9987313 
i 001745239 001745328 09999492 
9 001745256 001570795 09999589 
8 001745271 001396262 09999675 
at °01745284 01221729 °9999751 
°6 001745296 001047197 °9999817 
°5 001745306 66726639E-3 9999873 
04 001745314 60981312E-3. 69999919 
03 00174532 5e235984E-3 9999954 
02 001745324 3e490656E-3 999998 
«i 001745327 16745328E-3 .9999995 
209 001745327 16570795E-3 9999996 
008 001745327 1-396262E-3 .9999997 
007 001745327 16221729E-3 9999998 
206 001745327 1-047197E-3 .9999998 
005 001745328 8e726639E-4  .9999999 
004 001745328 6¢9B1311E-4 .9999999 
003 001745328 50835984E-4 
e02 01745328 3e490656E-4 1 
01 001745328 1-745328E-4 

READY 
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REM BRUCE BRENT £HHHH BKLYN POLY 7711/69 
REM REVISED BY C-LOSIK 8-27-70 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


” THIS PROGRAM DEMONSTRATES THAT THE LIMIT OF" 
“FCX) = CSIN X)/X» AS X APPROACHES 0» IS EQUAL TO 1.5" 
“PROVIDED X IS MEASURED IN RADIANS.” 


we ole SINCX)" 
° 8,"LIMIT 2-220 = 1" 
> corer so) x" 


“WHEN X IS IN DEGREES»”“.»”*WHEN X IS IN RADIANS.” 


WX IS*s"FCX) 1S%s"X LS%o"*FCX) IS" 


FOR Y¥=90 TO 5 STEP -5 
LET Zs¥ 

LET Z2=#3-14159%Z/180 
LET XsSIN(Z)/Z 

LET Q=SINC(Z)/Y 


PRINT 


Y¥oQoZaX 


NEXT Y¥ 


PRINT 


FOR ¥#i TO «1 STEP -e1 
LET Z#Y 

LET Z2#3-14159%Z/180 
LET X#SIN(Z)/Z 

LET Q=SIN(Z5/7Y 


PRINT 


YoQeZ0X 


NEXT ¥ 


PRINT 


FOR Y#-09 TO -Q1 STEP --0} 
LET Z#Y¥ 

LET 2#3¢14159%Z7/180 

LET X#SINCZ)/Z 

LET Q@#SINCZ)/Y — 


PRINT 


YoQoZo% 


NEXT Y 
END 
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DISCIPLINE MATHEMATICS 10th YEAR 
ne tn TEAR 
GEOMETRY 


SUBJECT AREA OF A CIRCLE 
PROGRAM NAME _ PI2 


DESCRIPTION: 


This program computes the area of a circle and ''pi'' by 
using the areas of inscribed and circumscribed regular polygons. 


OBJECTIVES: 


As an introduction to the limit process and a method for 
approximating '' pi'', 


PRELIMINARY PREPARATION: 
eee enneen ene 


A. Student - Students must know how to calculate the area of a circle 
and a triangle using the formulas: A=mR¢ and A= 4bh. 


B. Materials - chalkboard, board compass, and straight edge. 


DISCUSSION: 


Ask students to find the area of a circle without using the formula. 
The instructor may suggest to the class to inscribe and/or circumscribe an 
equilateral triangle. Have students compare the area of their figures to that 
of the circle. Some students will Suggest to increase the number of sides 
and the instructor should suggest that a regular hexagon be used for 
convenience of drawing. This can be illustrated on the chalkboard for the 
class. Another comparison is made between the areas and then the students 
will observe that to obtain any satisfactory results, the number of sides 
must increase greatly. At this moment the instructor should introduce 
this program and explain to the class that the program will increase the 
number of sides of a regular polygon and compute the area of each new 
figure. A table is printed giving the areas of both inscribed and circum- 
scribed regular polygons and also the number of sides for each area. 
The students can readily see that the machine has eliminated the tedious 
calculations. Now, have the students calculate the area of the circle 
using the formula and make a comparison of results; thus, the students 
can observe that the areas of the polygons approach the area of the circle. 
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DISCUSSION: (con! t) 


If students had taken a unit circle, they would have observed a 
method for approximating "pi". 


Due to machine operation, the value of " pi" was used to 
convert degrees into radians. To avoid any circular reasoning, the 
instructor can use half-angle formulas to eliminate * pi" from this 
program. 


AREA OF A CIRCLE USING INSCRIBED AND CIRCUMSCRIBED REGULAR POLYGONS | 
eens ee 


WIAT IS THE RADIUS OF THE CIRCLE? 10 


INSCRIBED CIRCUMSCRIBED NUMBER OF INSCRIBED CIRCUMSCRIBED 
AREA AREA % RRROR 


SIDES % ERROR 
129-9039 §$1926148 3 ~§6 65 63504 
259-8075 34624098 6 “1703 10-87 
299.9998 323 $387 12 4-51 @-35 


HOW MANY SIDES BO YOU THINK ARE NEEDED TO APPROXIWATE 
THE AREA OF THIS CIRCLE? 100 


313-9533 33402624 100 -.07 003 
WOULD YOU LIKE TO TRY ANOTHER NUMBER OF SIDES (1*YES» 0-80)? 4 
HOW MANY SIDES DO YOU THINK ARE NEEDED TO APPROXIMATE 
THE AREA OF THIS CIRCLE? 156 
TRAT MANY SIDES IS VALID. BUT NOT NECESSARY FOR A 
GOOD APPROXIMATION. USE 10000 AS THE. NAXINUM NUMBER. 

HOW WANY SIDES DO YOU THINK ARE NEEDED TO APPROXIMATE 
THE AREA OF THIS CIRCLE? 10000 
3140159 3146159 40000 ) ® 


WOULD YOU LIKE TO TRY ANOTHER NUMBER OF SIDES (1-YES, O-N02? O 
WOULD YOU LIKE TO TRY ANOTRER RADIUS (1-YESs 0-80)? 1 


e0e26 
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Math | 
PI2 


WIAT 13 THE RADIUS OF THE CIRCLE? 1000000 
ARY RADIUS WILL WORK, BOT OSE A NUMBER LESS THAN 1000. 
WAT 13 THE VRADIUS OF THE CIRCLE? 999 


INSCRIBED CIRCUMSCRIBED NUMBER OF INSCRIBED CIRCUMSCRIBED 
AREA AREA & ERROR & ERROR 


SIDES 
8e8964Q3E°6 8650 188 754846 3 @56 065 6504 
BeS9BEEIECG = 30 4871 TIE CE 6 ©1703 10087 
Re PVAOOIECE 32B08960ES6 18 74081 8035S 


MOW MANY SIDES DO YOU THINK ARE NEEDED TO APPROXIMATE 
THE AREA OF THIS CIRCLE? 10000 


SelLFSSIOECE  361395310E 96 10000 0 e 


WOULD YOU LINES TO TRY ANOTHER NUMBER OF SIDES (1-YESse O-NO)T O 
WOULD YOU LIKE TO TRY ANOTRER RADIUS (1°YESs 0-80)? 0 


oheee 
REASY 


100 REM ILLUSTRATION OF LIMITS USING CIRCLES AND POLYGONS 

101 REM REVISED 6/3/70 (Do PESSEL 

108 REM IMPORTANT VARIABLES Al-INSCRIBED AREAS AS-CIRCUNSCRIBED 
106 REM AREAS A3-ACTOAL AREAS Pie ERROR OF Al} PR-% BRROR 4 && 
110 PRINT “AREA OF A CIRCLE | USING INSCRIBED AND CIRCUMSCRIBED 

113 PREMT “REGULAR POLTEONS” 

118 PRINT 

185 PRINT “eesee" 

416 PRINT 

190 PRINT “WIAT 35 THE RADIUS OF THE CIRCLE™S 

{aS ImPuT R 
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&P R<3000 THEN 13: 
PRINT ANy RADIUS VILL WORK, BUT USE A NUMBER LESS THAN 1000.” 


ImuT R 
iF Rewcl THEN 134 
PRINT “RADIUS SHOULD BE AT LEAST «111° 
@@ TO 180 
LET A3a3-1416eROR 
PRINT 


PRINT 

PRINT “INSCRIBED” s“CIRCUNSCRIBED"»* WUMBER OF” > 

PRINT “INSCRIBED” .°C3 RCUNSCRI BED” 

PRINT ° AREA*.® AREA® »® SIDES”.° % ERROR”.  % ERROR” 


FOR K=O TO 8 

LET N=36¢(28?K) 

GOSUB 180 

NEXT K 

@0 TO 840 

REM COMPUTATION SUBROUTINE (LINES 180-880) 
LET Le8seRe$IA(3- 14159783 

LET AL@ROCOS( 3. 1416978) SNOL 78 

LET ARSN*( RIB) STAN 3. 14159/89 

LET P18€CAl 43) /A33%100 


906 LET P8=8CCAS-A3) 7A3)4100 


PRINT AlsASs® “3RolNTCP19100%65)/100. INTC P261004-5)7100 


PRINT 
PRINT 
PRINT “HOW MANY SIDES DO YOU THINK ARE NEEDED TO APPROXIMATE” 
PRINT °THE AREA OF THIS CIRCLE*3 
IMPUT B 
IF N>3ES THEN 266 
IF N<3 THER 866 
60 TO 273 
el) ng NUMBER OF SIDES SHOULD BE AT LEAST THREE! I” 
tO 
PRINT “THAT MANY SIDES IS VALID. BUT NOT NECESSARY FOR A” 
PRINT aes APPROXIMATION. USE 10000 AS THE MAXINUM NUMBER.” 
@0 TO 


PRINT 
LET NeINTCN+.5) 
80 


@osuB i 

PRINT 

PRINT “WOULD YOU LIKE TO TRY ANOTHER NUMBER OF SIDES”5 
PRINT ° €1°YESs 0-RO)~3 


IMPUT Q1 


IF Q@1>0 THEN 260 

PRINT “WOULD YOU LIKE TO TRY ANOTHER RADIUS (1-YESs O-NO)™3 
INPUT a8 

PRINT 

PRINT “ses80" 

PRINT 

IF Q220 THEN 120 

£uD 
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DISCIPLINE _MATHEMATICS 9, 10,11, 12,13 


SUBJECT_ PLOTTING A GRAPH 
PROGRAM NAME _ PLOTTR 


DESCRIPTION: 


This program plots the graph of any function (analytically 
defined) which the operator inputs into the program. 


OBJECTIVES: 
A. To check a student's plotting procedures. 


B. To obtain a quick plot of an involved function. 


PRELIMINARY PREPARATION: 
A. Student - Knowledge of coordinates, and plotting procedures. 


B. Materials - graph paper for plotting 


DISCUSSION: 

The operator inputs any analytic function, along with the lower 
and the upper limits for x and the interval to appear on the x-axis. 

The type-out positions x-values on the vertical axis, and 
y-values on the horizontal axis. 


The points typed out may be connected by a smooth curve, and 
the graph may be rotated 90 to give the usual positioning of a function 
of x. 


It should be noted that because the carriage spacing is discrete, 
many smooth curves may appear slightly jagged. 
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In the third sample run, a plot is made of a rather complex 
transcendental function. It is worth mentioning that this plot is 
obtained as easily, using this program as is that of the function 

=X, 


The teacher should notice also, that, in this third sample 
run, we have found two of the roots of the function 
Y=X+L0G(2*(SIN(X)) 2)}-1.5xC0S(X) 


(at X=1 and X=2.98). This program may be used for finding the roots 
of such difficult funcions, 


* 





SY 
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Math. 
PLOTTR 


THIS PROGRAM WILL GRAPH A FUNCTION OF X BETWEEN ANY LIMITS 

(A AND B) YOU CHOOSE. WITH AN INTEROAL OF YOUR CHOICE ¢«3) 
BETVEEN get nges VALUES OF X, IF YOU TYPE THE FOLLOWINGS 

1 @0 TO 880 

280 DEF FNYCX)ecee( YOUR FUNCTION OF Xdece 

230 LET Aecec{ TOUR SMALLER LINIT OF Xdece 

240 LET BeeoeCYOUR LARGER LINIT OF Xece 

pit LET Ieeceel( YOUR X°- INCREMENT) cco 


READY 
§ @60 TO 880 
220 DEF FMY<XeSINCX) 
830 LET AsO 
240 LET Be? 
' 930 LET [8-5 
RUM 
x 
vo 
A 
L 
U 
4 
s ee @® @ Y-VALUES eee ee 
3 “105 0 4S 
Joccconene] conngoone] cwwcewene] cocnncncn] eocegooce] 
0 * 
eS I & 
a i * 
168 I a 
8 2 * 
2e5 | * 
3 Is 
30S * 1 
* 2 
4-5 * 3 
* z 
5eS e t 
6 s 2 
6e8 Is 
7 3 ® 


@BTEs THE SIX £°S ON THE HORIZONTAL Y-AXIS REPRESENT? 
“3 o-B o-h «On 1 eo B 
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x 

Vv 

A 

L 

uv 

zg 

3 oe « @ FYeoYALUES © © ee 

ol r 5 6 
lewecceene] cavesfones] coeceeone] coewecece] cceagoones 

oj ¥ a 

0 

i I * 

8 | * 

3 | 8 

4 | s 

8 | * 

6 8 * 

q | * 

6 | |. 

| g or i 

: mores me six 3°S O86 THE HORIZONTAL Y-AXIS REPRESENTS a 

ce ee ee 

READY 

i 
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1 GO TO 220 

220 DEF FNY(X)#X+LOG(2*(SINCX)) #2)=1 65*COS(X/2) 
230 LET A#0-5. 

240 LET B=3-1 

250LET 120-1 


vumcraeci x g 


= = + + Y-VALUES - - - - 
-3 “1-5 0 1-5 
eee eee ns See es as 
05 * I 
06 * 


% 


x HH 


~ 
e 
a 
* 
ee ee eee ee! 
*% 


Sel * 


NOTE: THE SIX I'S ON THE HORIZONTAL Y-AXIS REPRESENT: 
"3 298 sel » Ov 1 5 2 
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PLOTTR 

READY 

1 GO TO 220 

220 DEF FNYCX)#LOGCCSINCX)) t2)- 

230 LET A=1 

240 LET B=3 

250 LET I=0e1 

RUN 

x 

Vv 

A 

L 

U 

E 

Ss - = - = Y°VALUES - - - - 

-5 “305 -2 5 
CEE es Sens errr nnn me mes 

1 * I 
1.1 * | 
1-2 *I 
1.3 *I 
1.4 & 
1.5 é 
1.6 
1.7 F 4 
1.8 «I 
1.9 “JI 
2 * T 
201 * | 
202 3 I 
2e3 8 I 
204 * 7 I] 
2e5 * T 
2-6 * I 
207 a 1 
268 * a 
209 * I 
3 * I 


NOTE: THE SIX I°S ON THE HORIZONTAL Y-AXIS REPRESENT? 
“5 9-4 9-3 9-2 sol » OQ 


READY 
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PLOTTR 


810 REM QUENTIN Jo O°CONNORs COMMACK HeSeNORTH. REVISED JULY. 1969 

348 REM REVISED BY C«LOSIK 6-7-7 

186 REM AsBel ARE SELF°EXPLANATORY 

437 REM AUTOWATIC SCALING AND A FLOATING AXIS ARE USED- 

Ia0PRI NT” THIS PROGRAM WILL GRAPH A FUNCTION OF X BETWEEN ANY LIMITS” 
ISOPRINT*(A AND B) YOU CHOOSE. WITH AN INTERVAL OF YOUR CHOICE (1)* 
I40PRINT* BETWEEN SUCCESSIVE VALUES OF X» IF YOU TYPE THE FOLLOVIAG?” 


isO PAINT® & 60 TO 820" 
160 PRINT” 220 DEF FHYCXaco eC YOUR FUNCTION OF X)eee” 
170 PRINT® 8 LET Awcee (YOUR SMALLER LINIT OF Xde0e” 
160 PRINT® 840 LET Beaeoe( YOUR LARGER LIAIT OF X)-0 0” 
190 PRinT® 8350 LET Lecee(YOUR X-INCREMENT) 000” 

PaintT® now 

STOP 

DEF FNY CX) aX 

Aen} 
LET Bed” 


IF A<B THEN 350 


104070 330 


IF YoU>0 THEN 350 
@0 TO 360 

GOsuB 400 

NEXT X 

60 TO 480 

LET L«¥ 


RETURN 
LET UsY¥ “ 


RETURN 

IP INTCUD-U=0 THEN 450 
LET Ul=INTCU) 1 

GO TO 460 

LET Ul=U 

LET Lisint¢L> 

LET DeQi-LI 

If INTCD/S)°-D/5e0 THEN 570 
FOR Kel TOS 


SSEZESESSSSSESESESSSESESESE LESSEE 


QT 
om 
o 
om 
é 
= 


cE 
IF INTCD/S)-D/S5=0 THEN sn 
LET VieuUiel 

LET DeVi-eLi 

8% INT(CD/S)-D/5e0 THEN 570 
REXT K 


EERE 
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Math 
PLOTTR 


$70 LET E=D/5 
$80 PRINT “x” 


650 PRINT “S 2 © @ © Y=VALUBS - = < =” 
660PRIRT* “Lido” “SLICER 52% “SLICESZs”™ “3L10Es4e5 
670PRINT* Jocenecece] cocetoese] evcececoen] cccwcvane] 3 


671 PRINT “Nooeopgecee]@ 

660 &F LI>0 THEN 1020 

690 LEP GeInT¢ C-£19%C10/E9+-5) 

10 DEF FUP CY INTC (¥°L19%C10/E) 4-5) 

710FOR X=A TO B STEP I 

720 PRINTX>» 

730 LET YeFNYC(X) 

700 iF Y>=0 THER 650 

760 PRINT TABC ISoFMP CY) 3°03 TABCQ01593°I" 
640 60 TO 1000 

650 IF YO THEN 910 

860 PRINT TABCQ415)3°%s" 

900 GO TO 1000 

910 PRINT TABC1S*Q)3°I"*3 TABCISOFMPCY) > 3%e" 
1000 NEXT X 

1010 @O TO 1100 

1020 FOR XeA TO B STEP 1 

1030 PRINTZ, 

1040 LET Y= FNYCX) 

1030 PRINT TABC INTC CY-L19#¢ 10/B 90824149 3%a" 
1090 MEXT X 

1100 PRINT 

1110 PRINT “NOTES THE SIX I°S ON THE HORIZONTAL Y-AXIS REPRESENTS” 
rhe ae L13%o*SL19E3% o*3LIOESRS® o@SLIGESSS@ oS LICR OAS o SLICERS 
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DISCIPLINE MATHEMATICS, GEN. 9th YR 
SUBJECT PRIME FACTOR 
PROGRAM NAME PRIFA 


DESCRIPTION: 


This program finds the prime factors of any given integer, or 
prints "is prime" if the integer has no proper divisors. 


OBJECTIVES: 


A. To display to the stuudmt the prime factors of a large number of 
integers, giving the students a chance to discover relationships. 


B. To use the motivation of the computer to teach the method that the 
program uses to find the prime factors. 


PRELIMINARY PREPARATION: 


A. Student - Should understand the meaning of composite, prime, 
factor, and prime factor. 


B. Materials - If you desire to use this program with a group, a means 
by which the output can be displayed is necessary. 


DISCUSSION: 


The speed with which the computer operates in this program 
gives the student an opportunity to make generalizations based upon many 
more observations then heretofore was possible. The question can be 
asked: " By what method does the computer find the prime factor?" A 
flow chart would be highly useful at this point, not only in developing the 
method for finding a prime factor, but also in understanding the mathematical 
logic behind this method. — 
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Mathematics 
PRIFA 


THIS PROGRAM WILL GIVE YOU THE PRIME FACTORS OF ANY 


WIOLE NUMBER. 


ZERO FOR THE NUMBER- 


WHAT IS THE NUMBER ? 105 


105 
WHAT 
72 
WHAT 
89 


WHAT 


47 


WHAT 
155 
WHAT 
362 


WHAT 


READY 


Is 


Is 


Is 


Is 


IS 


Is 


THE 


THE 


THE 


THE 


THE 


THE 


35 7 
NUMBER ? 72 

222 3 3 
NUMBER 2? 69 


IS PRIME 


NUMBER ? 47 


1S PRIME 


NUMBER ? 155 
5 31 
NUMBER ? 362 
2 161 


NUMBER ? O 


IF YOU WISH TO STOP THE PROGRAMs ENTER A 
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Mathematics 
PRIFA 


REM We TEPPER WYANDANCH HeSe 
REM REVISED BY CeLOSIK 6-10-70 
REM M IS THE NUMBER» ACI) ARE ITS FACTORS 


‘REM ADAPTATION OF TWO PROGRAMS 


REM THIS PROGRAM FINDS THE PRIME FACTORS OF ANY GIVEN INTEGER 


REM AND PRINTS PRIME IF IT HAS NO PROPER DIVISORS 
DIM AC100) 
LET C=0 


PRINT “THIS PROGRAM WILL GIVE YOU THE PRIME FACTORS OF ANY" 


PRINT "WHOLE NUMBER-e IF YOU WISH TO STOP THE PROGRAM, 
PRINT “ZERO FOR THE NUMBER.” 
PRINT 

PRINT “WHAT IS THE NUMBER ''3 

LET X=0 

INPUT M 

IF ABSCM-INTCM++5))<e0001 THEN 210 
PRINT “WHOLE NUMBERS ONLYs PLEASE." 
GO TO 180 

PRINT 

IF M<=s0 THEN 470 

PRINT Ms 

LET 121 

LET l=I+1 

IF I>M THEN 310 

IF M/I<>INTCM/I) THEN 240 

LET X=X+1 

LET ACX)=1 

LET M=M/I1 

GO TO 250 

IF X=1 THEN 360 

FOR L=1 TO xX 

PRINT ACL)3 


NEXT L 

GO TO 370 

PRINT “IS PRIME" 

PRINT 

PRINT 

GO TO 180 . 
INPUT B 

IF B=1 THEN 180 


IF B=0 THEN 470 

PRINT “ TYPE 1 OR O AS INSTRUCTED" 
LET C=C+1 

GO TO 400 ° 

END 
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ENTER A" 


DISCIPLINE MATHEMATICS 12, 13 
SUBJECT ANALYTIC GEOMETRY 


PROGRAM QUADRT 


DESCRIPTION: 


This program determines the nature of the graph of Ax2 + Bxy + 
Cy2 + Dx + Ey + F =0, after the operator inputs the six constants (A, | 
B, C, D, E, F). Limiting cases, such as a point or a line, are separ- 
ated from the general cases so that the computer type-out gives the 
exact nature of the graph. 


OBJECTIVE: 
To permit exploration of the properties of the second-degree 
equation. 
PRELIMINARY PREPARATION: 
A. Student - should have a reasonable knowledge of conic sections, 
second - degree equations in two unknowns, invariant functions 
of the coefficients under transformations, etc. 
B. Materials — An overhead projector along with a transparency of the 
flow chart would be desirable, 
DISCUSSION: 
Before running the program, the teacher should discuss the 
general form of a second-degree equation in two variables, the functions 
of the coefficients used in the program, ane. the implications of the 


flow chart. 


The discussion of the flow chart for this program enhances the 
understanding of the problem. 


The type-out serves as a check on students' efforts in ident- 
ifying second-degree equations. 
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Math 
QUADRT 


THIS PROGRAM DETERMINES THE NATURE OF THE GRAPH OF? 
ACX#S*BeXeY+CeT ¢Be+DeX+EsyYerad 
ENTER YOUR CONSTANTS IN THE ORDER LISTED ABOVE. 


2 $080500 0000 
THE GRAPH OF YOUR EQUATION IS A SINGLE POINT. 


ANOTHER RUN CIBYES» O=NO) 8 ? 1 
ENTER YOUR CONSTANTS IN THE ORDER LISTED ABOVE. 


2 $262520 20236 
THERE 15 NO REAL LOCUS FOR YOUR EQUATION. 


ANOTHER RUN CISYES, O=NO) 3 7? 1 
ENTER YOUR CONSTANTS INTTHE ORDER LISTED ABOVE. 


? 09520002009 
THE GRAPH /F YOUR EQUATION IS A HYPERBOLA. 


ANOTHER RUN CLSYESs O=NO) & 7 0 


READY 
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SSESERESE 


4 
° 


SESSRSESSaSSESRESSSSELESE 


REM QUENTIN JeO°CONNORs COMMACK HeSeNORTHs JULY 162 1969 
' REM REVISED BY CeLOSIK 6-7-70 


Math 
QUADRT 


REM AsBsCoDsEsF ARE AS IN EQUATION 


PRINT 
PRINT 
PRINT 
PRINT 
INPUT 


* THIS PROGRAM DETERMINES THE NATURE OF THE GRAPH OF 8° 


bed A*X tV*BSXSY+CeyY tQeDeXeEeT +FaQ” 


* ENTER YOUR CONSTANTS IN THE ORDER LISTED ABOVE.” 


AsBoCoDoEoF 


IF AtA+B4B+CeC+DeD+EsE+FeF>0 THEN 210 


PRINT* 
PRINT°AND Y WILL SATISFY YOUR EQUATION. 


PRINT’GRAPH IS A COMPLETE PLANE.” 


Go TO 


$30 


IF A*A*B*B+CeC+DeD+E*E=0 THEN S00 
IF A®A+BeB+CeCe0 THEN 240 


Go TO 


490 


LET IeAa+C 

LET K#4+AsC-BeB 

LET Ja4tA4C+4eCeF +Q4AtF-E*E-D*D-BSB 
LET PaAeAtCeF+BeDeE-ASE*E*CeDeD-F sBeB 
iF P=0 THEN 360 

IF K=O THEN 540 

iF K<O THEN 520 

IF IsP>0 THEN 500 


PRINT 


PRINT 


SF A<>C THEN 340 
IF Bs0 THEN 480 


“THE GRAPH OF YOUR EQUATION IS AN ELLIPSE.” 


50 
“i ig GRAPH OF YOUR EQUATION IS A SINGLE STRAIGHT LINE.” 
5 
“THE GRAPH OF YOUR EQUATION CONSISTS OF 2 PARALLEL LINES.” 


$50 


“THE GRAPH OF YOUR EQUATION CONSISTS OF 2 INTERSECTING LINES«” 


a THE GRAPH OF YOUR EQUATION IS A SINGLE POINT.” 
oTRE GRAPH OF YOUR EQUATION IS A CIRCLE.“ 
wTRERE 1S NO REAL LOCUS FOR YOUR EQUATION.” 
wTHE GRAPH OF YOUR EQUATION IS A HYPERBOLA.“ 
one GRAPH OF YOUR EQUATION IS A PARABOLA.” 


“ANOTHER RUN CISYES» O=NO) & “3 
A : 


IF A=l THEN 130 
IF A<>0 THEN 560 
END 


42 


@ Copyright 1971, Polytechnic Institute of Brooklyn 


WITH ALL YOUR CONSTANTS EQUAL TO ZERO» ANY VALUES OF x 
IN OTHER WORDS.» YOUR” 


DISCIPLINE MATHEMATICS 9th YEAR 


SUBJECT PROPORTIONS 
PROGRAM NAME RATIO 


DESCRIPTION: 


This program solves a proportion of the type A/B=C/D. A, B, 
'C, or D can be unknown. 


OBJECTIVES: 
A. To teach the student(s) the relationships in a proportion. 


B. To aid in teaching the solution of proportions. 


PRELIMINARY PREPARATION: 
A. Student - no particular preparation necessary 


B. Materials - see discussion 


DISC USSION: 

The student is given the opportunity to see any number of solutions 
to proportions. The program then asks a series of questions designed 
to allow the student to discover that in a proportion, the product of the means 
equals the product of the extremes. The program can be used either with 
individual students or with an entire class depending upon the availability of 
equipment to display the output. The running time varies, depending upon 
the number of proportions you wish to solve. In 10 to 15 minutes, the program 
can be run with about 100 proportion problems. Included in this time is a 
built-in variable pause for observation of the tabulated results. 

Another value of using this program is that the teacher can easily handle 
numbers in proportions that heretofore were too difficult. 
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RATIO 


eer 


THIS PROGRAM SOLVES FOR THE UNKNOWN IN THE PROPORTION 
A/B AS C/De USE A ZERO AS A DUMMY VALUE FOR THE UNKNOW. 


HOW MANY PROPORTIONS DO YOU WISH TO SOLVE? 4 
WIAT ARE THE VALOES FOR rigetai 3052809 
YOU FORGOT TO IMPUT A ZERO FOR YOUR 
UNKNOWN. TRY AGAINe? 3240600 
374 AS 6768 


WAT ARE THE VALUES FOR AsBoCoD? 121020550 
1710 AS 5 7 80 
WIAT ARE THE VALUES FOR AsBoC oD? 36205108 
36/78 aS 178 
WHAT ARE THE VALUES FOR AsBoCoD? 02450305 
827/745 AS 3785 


TAKE A GOOD LOOK AT THE PROPORTIONS. THE TWO MIDDLE 
- POSITION WUMBERS ARE CALLED THE ‘MEANS’s THE TWO 
END POSITION NUMBERS ARE CALLED THE ‘EXTRERES*.~ 


LOOK AT THE “MEANS® AND THE °EXTREMES® - SEE iF 
YOU CAN FIND SOME KIND OF RELATIONSHIP BETVEEN THEM. 
WiEN YOU THINK YOU RAVE FOUND A RELATIONSHIP BETUREN 
bar MEANS’ AND THE °EXTREMES*, TYPE 1 AND HIT THE RETURN KEY. 


DID YOU SEE THAT IF YOU MULTIPLY THE °MEANS* 
AND MULTIPLY THE "EXTREMES*s THE PRODUCTS ARE EQUAL? 


IM THE LAST PROPORTION 45 X 3 EQUALS 87 x 5 
CHECK THE OTHERS. TOO. Wikw YoU ane READY TO CONTINUES 
are i AND HIT THE RETURN KEY. 


to WISH TO USE THIS PROGRAM AGAIN TYPE 1. IF NOT TYPE 0 


READY 
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Math 
RATIO 


100 REM Ve TEPPER WYANDANCH HU.Se - MATHEMATICS 

10S REM REVISED BY CoLOSIR 8-5-7270 

106 REM A/B = C/Ds TOTALLY OBVIOUS. ALSO USES GO0SUB TO SIMULATE PAUSE 
110 REM THIS PROGRAM SOLVES FOR THE UNKNOW! IM THE PROPORTION” 

{80 REM OF THE TYPE A/B AS C/D 

130 PRINT “TRIS PROGRAM SOLVES FOR THE UNKNOWN IN THE PROPORTION”. 

140 PRINT °A7B AS C/De USE A ZERO AS A DUMMY VALUE FOR THE UNRHO we. 


PRINT 
re an “HOW MANY PROPORTIONS DO YOU WISH TO SOLVE"3 
180 FOR Kel TO WN 
190 PRINT “WHAT ARE THE VALUES FOR’ AsBsGoD"s 
200 INPUT ApBsCod 


250 PRINT “YOU FORGOT TO INPUT A ZERO FOR YOUR” 
255 PRINT “UNKNOWN. TRY AGAIN.®3 
860 GO TO 200 
270 LET AsB*C/D 
ge 340 


$30 . 
340PRINT* "3A"/"B" AS °C" /"D 


3760 PRINT “TAKE A GOOD LOOK ae THE PROPORTIONS. THE TWO MIDDLE” 
360 PRINT “POSITION NUMBERS ARE CALLED THE ‘MEANS's THE TWO” 
390 PRINT “END POSITION NUMBERS ARE CALLED THE ‘*EXTREMES*.” 


0 PRINT “LOOK AT THE ‘MEANS* AND THE ‘EXTREMES’ - SEE IFe 
410 PRINT “YOU CAN FIND SOME KIND OF RELATIONSHIP BETWEEN THEN.” 
420 PRINT “WHEN YOU THINK YOU RAVE FOUND A RELATIONSHIP BETOEEN® 
430 PRINT “THE ‘MEAMNS' AND THE "EXTREMES*’s “3 

480 60 SUB 610 

460 PRINT “DID YOU SEE THAT IF YOU MULTIPLY THE ‘MEANS*" 

470 pie tel “AD MULTIPLY THE ‘EXTREMES‘s THE PRODUCTS ARE EQUAL?“ 
475 PRINT 

460 PRINT “IN THE LAST PROPORTION “B°X"C“EQUALS” A"°X"D 

490 PRINT “CHECK THE OTHERS,» T00- GREN YOU ARE READY TO CONTINUE.” 
$10 GO SUB 610 

$40 PRINT 

550 PRINT “IF YOU WISH TO USE THIS PROGRAM AGAIN TYPE 1.5 IF NOT TYPE 0” 
560 INPUT X 

S70 iF X=] THEN 800 

580 IF X90 THEN 640 

590 PRINT “TYPE 1 OR O AS DIRECTED.” 

680 40 TO 560 

610 PRINT “TYPE 1 AND HIT THE RETURN KEY.” 

680 INPUT X 

683 IF X<>1 THEN 620 

625 PRINT 


635 RETURN 45 


DISCIPLINE MATHEMATICS 


SUBJECT QUADRATIC EQUATIONS 


PROGRAM NAME ROOTS2 


DESCRIPTION: 


This program describes the nature of the roots of a quadratic 
equation, and finds the roots whether real or complex. 


OBJECTIVES: 


A. To familiarize the student with quadratic function. 
B. To review and drill exercise... to study the nature of roots. 


C. To emphasize that roots of f(x) = 0 are the same as x-intercepts of 
f(x) =y. 


D. To impress the student with geometric interpretation(s) of the 
nature of roots. 


E. To provide ''lead-in'' material for the introduction of further study 
of the real number line, the real cartesian plane, complex numbers, 
quadratic inequalities, etc. 


PRELIMINARY PREPARATION: 
A. Student - The teacher can use the program to introduce the students 
to the quadratic formula, to conclude discussion of the quadratic 


formula...or both. 


B. Materials - none 


DISCUSSION: 


The program uses the ''discriminant'' to determine the nature 
of the roots of the quadratic equation. Regardless of the nature of the 
roots, the student is asked to graph y = F(x), and to compare his graph 
with the kind of roots he finds for a specific F(x) =0. He should be 
impressed with the picture; and he should understand (ultimately) the 
reasonableness and validity of the analytic methods presented in class. 
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ROOTS2 


THIS PROGRAM HANDLES ALL POSSIBLE CASES OF SOLUTION OF THE EQUATION 8 
Aex+'2 © Bex + C6 # O 

TYPE 16 YOUR VALUES FOR As Bs AMD C 8 ? 10803 

DISCRIMINANT 15 LESS THAN ZERO, SO ROOTS ARE IMAGINARY. 

TREY ARE OF TRE FORM 8 P+leQ » P-lsQ » WHERE 8 

P wl Q = 1.414814 


eee 


BO YOU WANT ANOTHER RUN ( 0 © WO » 1 = YES ) 8 7? 1 
TYPE IM YOUR VALUES FOR A» Bs AND C 8 7? 12703 
DISCRIMINANT IS GREATER THAN ZERO. $0 ROOTS ARE REAL- 
BOOTS ARE Xi AND XS « 

Xi 2-24586187 X28 326.8418! 


eee 


DO YOU WANT ANOTHER RUN (¢ 0 = NO. 1 = YES 2) 8 7? 1 

TYPE NM YOUR VALUES FOR A» Bo AND C 8 ? 12609 

DISCRIMINANT IS EQUAL TO ZERO. SO ROOTS ARE EQUAL. X a3 
| eee | 


DO YOU VANT ANOTHER RUN (¢ 0 © NO» 1 = YES >) 8 7? 3 
TVPE IN YOUR VALUES FOR As Bs AMD C 8 7 80606 
DISCRIMINANT 15 GREATER THAN ZERO. $0 ROOTS ARE REAL« 
ROOTS ARE X! AND XR 

Xi moh XQ ae3 


SEs 
DO YOU WANT ANOTHER AUN ( 0 = NOs 1 © YES 2 & 2 0 


READY 
' 47 


100 REM THE ULTIMATE QUADRATIC SOLVER. UNTIL THE NEXT VERSION 

110 REM CHARLES LOSIKs PIBs 7/721/702 BASIC 

120 PRINT “THIS PROGRAM HANDLES ALL POSSIBLE CASES OF SOLUTION OF*3 

{25 PRINT * TRE EQUATION 38” 

130 PRINT 

140 PRINT * aexx?t12*¢+ Be#xX + C€ ws OW 

150 PRINT ; 

160 PRINT “TYPE IN YOUR VALUES FOR As Bs AND C 3 “3 2 
165 REM INPUT VALUES FOR A»BsC 

170 INPUT AsBoG 

171 PRINT $ 
17S REM FOR ALL CASES» CHECK A=Q- IF SOs THEN LINEARITY 

igo IF AsO THEN 608 

185 REM D 1$ THE DISCRIMINANT 

190 LET D#BéB-4%AsC 

19S LET Z#84A 

200 IF D=O TREN 710 

210 IF D>O0 THEN 610 

300 REM D<O. IMAGINARY RESULTS | 

310 PRINT “DISCRIMINANT IS LESS THAN ZERO.» SO ROOTS PRE IMAGINARY.“ 

380 PRINT “TREY ARE OF TRE FORM s P+I1*Q » P-1#Q » Wa ‘E 8” 

390 PRINT @P #°-B/Z2"Q =*SQRCABS(D))/Z 

340 @0° TO 900 

600 REM D>0,s SO REAL ROOTS 

610 PRINT “DISCRIMINANT IS GREATER THAN ZERO. SO ROOTS ARE REAL~-” i 
620 PRINT "ROOTS ARE Xi AND x2 .* aad 
630 PRINT °X1 ="(-B¢SQR(D))/Zs"X2 =” ( -B-SOR(D))/Z 

640 GO TO 900 

70 REM EQUAL ROOTS (Da0) 

710 PRINT “DISCRIMINANT 15 EQUAL TO ZERQ» SO ROOTS ARE EQUAL. <X ="-B/Z 
720 GO TO 900 

800 REM A=0., SO Xe-C/Bs UNLESS BeO 

802 IF B<>0 THEN 810 

803 IF C=O THEN 807 

G04 PRINT “MEANINGLESS STATEMENT.“ 

806 GO TO 900 

807 PRINT “OKs. ZERO = ZERG." 

808 GO TO 900 

810 PRINT “THE EQUATION IS LINEAR. X ="-C/B 

960 PRINT 

901 PRINT TABC 30) 3"%se2" 

90$ PRINT 
_ 910 PRINT 

920 PRINT “DO YOU WANT ANOTHER RUN ( 0 = HO » 1 = YES ) 8 “3 

930 INPUT Z 

940 IF Z=1 THEN 150 

950 IF Z<>0 THEN 980 

999 END 

Se! 
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DISCIPLINE _MATHEMATICS - JR. HIGH 

SUBJECT INTERSECTION AND UNION 
OF SETS 

PROGRAM NAME SETS 


DESCRIPTION: 


This program finds the intersection and union of any two 
numerical sets. 


OBJECTIVES: 


A. To motivate students to find the union and intersection of any two 
sets. 


B. To learn the logic involved in finding the union and intersection. 


PRELIMINARY PREPARATION: 
A. Student - no special preparation necessary. 


B. Materials - see discussion 


DISC USSION: 


This program may be used with individuals, small groups, or 
class-size groups. The elements of the two sets are entered as per 
instructions. Incidently, one or both of the sets may be empty. The 
computer then types back the elements in the union and intersection. The 
speed with which the computer operates enables the students to see a 
great many examples, giving them the opportunity to make discoveries about. 
what is the union and what is an intersection of two sets. The teacher may , 
use the flow chart that follows to explain the logic behind finding the union 
and intersection. 


It is suggested that when used with large groups, a supplementary 
device be used to display output. 
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Math 

SETS 
THIS PROGRAM FINDS THE UNION AND INTEXSECTION OF ANY TWO 
NUMERICAL SETSe 


HOW MANY ELEMENTS IN THE FIkST SET? 5 


THESE ARE - CHIT THE RETURN KEY AFTEnM ENTEXQING KACH ELEMENT) « 


VV Vw 
Env 


HOW MANY ELEMENTS IN THE SECOND SET? 5 


THESE ARES - 
2 
4 
6 
& 
10 


VV NV VV 


THE INTERSECTION CONTAINS 2 4 
THE UNION CONTAINS 2 4 6 8 10 1 3 #5 


DO YOU WANT ANOTHER RUN C1=YESs U=NO) 3 ? 1 
HOW MANY ELEMENTS IN THE FIRST SET? & 


THESE ARE - CHIT THE RETURN KEY AFTER ENTERING EACH ELEMENT). 


VV NY VV oy NV WD 


Re SN a ee 


THE INTERSECTION CONTAINS 1 2 3 4 6 & 10 
THE UNION CONTAINS 1 2 3:°4 5 6 7 & Y IU 12 


DO YOU WANT ANOTHER KUN C1=YESs O=NO) 3 7? U 


READY 
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Math 
SETS 


100REM We TEPPER» WYANDANCH HSs 7/29/69 
101 REM REVISED BY CeLOSIK 6-10-70 

103 DIM AC30)sB¢30) . 
110 REM UP TO 30 ELEMENTS PER SET ARE ALLOWEDCUNLESS DIM IS CHANGED) 
120PRINT"THIS PROGRAM FINDS THE UNION AND INTERSECTION OF ANY Two" 
130PRINT"NUMERICAL SETS." 

140PRINT 

ISOPRINT" HOW MANY ELEMENTS IN THE FIRST SET"'3 

160INPUT N 

163 IF N=O0 THEN 230 

166 IF N=INTCN) THEN 170 

167 PRINT "ONLY AN INTEGER NUMBER OF ELEMENTS IS POSSIBLE.” 

169 GO TO 140 

170 IF N<=30 THEN 180 

173 PRINT “THE MACHINE CANNOT HOLD MORE THAN 30 ELEMENTS .e"3 | 

175 PRINT " SEE YOUR TEACHER." 

177 GO TO 690 

180 IF N>O THEN 189 

183 PRINT "THERE CANNOT BE A NEGATIVE NUMBER OF ELEMENTS." 

166 GO TO 140 

169 PRINT 

190PRINT"THESE ARE - CHIT THE RETURN KEY AFTER ENTERING EACH ELEMENT) -"* 
200FOR K=1TON 
210 INPUTACK) 

220NEXT K 

230PRINT 

240 PRINT “ HOW MANY ELEMENTS IN THE SECOND SET" 

250INPUT J 

253 IF J=0 THEN 550 

256 IF J=INTCJ) THEN 260 

257 PRINT "ONLY AN INTEGER NUMBER OF ELEMENTS IS POSSIBLE." 

259 GO TO 230 

260 IF J>30 THEN 173 

270 IF J>O THEN 279 ; 

273 PRINT “THERE CANNOT BE A NEGATIVE NUMBER OF ELEMENTS." 

276 GO TO 230 

279 PRINT 

260 PRINT"THESE ARE:" 

290 FOR Ki=1T0O J 

300 INPUT BCK1) 

310 NEXT Kl 

311 PRINT 

312 PRINT 

315 IF N<=0 THEN 640 

320 PRINT "THE INTERSECTION CONTAINS "3 

330 FOR K=1 TO N 

340 FOR L=1 TO J 
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IF ACK)=BCLITHEN 380 

NEAT L 

GO TO 400 

PRINT ACK)3 

LET X=X+1 

NEAT K 

IF X>OTHEN 430 

PRINT’ EMPTY SETeeeeNO ELEMENTS" 


430PRINT 


PRINT"THE UNION CONTAINS''S 
FOR L=1 TO J 

PRINT BCL)3 

NEXT L 

FOR K=1 TO N 

FOR L=1 TO J 

IF ACK)=BCL) THEN 530 

NEXT L 

PRINT ACK)3 

NEAT. K 

GO TO 690 

IF N<=0 THEN 620 

PRINT “INTERSECTION IS EMPTY" 
PRINT “UNION CONTAINS" 


‘FOR K=1 TO N 


PRINT ACK)3 

NEXT K 

GO TO 690 

PRINT "UNION AND INTERSECTION ARE EMPTY" 
GO TO 690 

PRINT “INTERSECTION IS EMPTY" 


PRINT “UNION CONTAINS" 

FOR K=1 TO J 

PRINT BCK)3 

NEAT K 

PRINT 

PRINT 

PRINT "DO YOU WANT ANOTHER RUN (1=YES» 0=NQO) 


INPUT N 

IF N=1 THEN 140 
IF N<>0 THEN 720 
END 
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DISCIPLINE ALGEBRA 


SUBJECT___ SIMULTANEOUS EQUATIONS 
PROGRAM NAME SIMEQN 


DESCRIPTION: 


This program finds the simultaneous solution set for sets of 
- simultaneous linear equations (up to 10x10) 


OBJECTIVES : 


1. To eliminate the tedium of solution of sets of simultaneous 
equations. 


2. To provide a means for checking solutions obtained by other 
means. 


PRELIMINARY PREPARATIONS: 


Presentation of concepts of simultaneous equations and methods 
for finding solutions. 
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THIS PROGRAM SOLVES ANY NUMBER OF SETS OF SIMULTANEOUS 
EQUATIONS OF UP TO 10 EQUATIONS PER SET.» ENTER YOUR SETS 
OF EQUATIONS IN DATA STATEMENTS IN LINES 700-8005 
PRECEDED BY THE NUMBER OF EQUATIONS IN EACH SET. 
EXAMPLE: TQ SOLVE THE SYSTEM 
T*AaCl) + @*XC2) = 3 
4*XC1) + 9*XC2Q) = 10 
ENTER DATA AS FOLLOWS: 
700 DATA 2 
701 DATA 15253 
702 DATA 459510 
THEN TYPEs 
1 GO TO 110 
RUN 
THE COMPUTER WILL PRINT A MATRIX OF YOUR EQUATIONS» FOLLOWED 
BY THE SOLUTION TO THE. EQUATIONS. 


READY 
700 DATA 2 


W1 DATA 13233 
We DATA 439510 


1 GO TO 110 
RUN 

1 2 3 
4 9 10 
AC 1 Of 7 
xXxC 2 )= -2 
READY 

70 DATA 2 

701 DATA 3325316 

W2 DATA -69-45-32 

1 GO TO 110 
RUN 

3 2 16 
-6 74 -32 


NO UNIQUE SOLUTION 
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READY 


700 DATA 3 

1 DATA 39255510 
702 DATA #13457s-21 
703 DATA 1515-1514 


1 GO TO 110 
RUN 
3 2 5 
-} 4 7 
1 1 = 
xC 1 d= 72413044 
XC 2 d= 2.956522 
XC 3 O2 -30630435 
READY 
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10 
-21 
14 


REMARK DeSOBINs BKLYN, POLY» 11-69 
REM REVISED BY CeLOSIKs 9-25-70 


PRINT "THIS PROGRAM SOLVES ANY NUMBER OF SETS OF SIMULTANEOUS" 
PRINT “EQUATIONS OF UP TO 10 EWUATIONS PER SETe ENTEN YOUR SETS" 


PRINT "OF EQUATIONS IN DATA STATEMENTS IN LINES 70U0-8UUs" 
PRINT "PRECEDED BY THE NUMBER OF EWUATIONS IN EACH SET." 
PRINT "EXAMPLE TO SOLVE THE SYSTEM" 
PRINT "  L#¥XC1) + @*XC2Q) = 3" 
PRINT " 4#XC1) + 9*XC2) = 10" 
PRINT "ENTER DATA AS FOLLOWS:" 
PRINT " 700 DATA e” 
PRINT " 701 DATA 15253" 
PRINT " 702 DATA 459510" 
PRINT "THEN TYPE?" 
PRINT" 1 GO TO 110" 
PRINT " RUN" 
PRINT "THE COMPUTER WILL PRINT A MATRIX OF YOUK EQUATIONS, 
PRINT "BY THE SOLUTION TO THE EQUATIONS." 
STOP 
DIM EC10511)5 XC€10) 
READ N 
IF N=0 THEN 999 
FOR I=1 TON 
FOR K=1 TO N+ti 
READ ECIsK) 
PRINT ECIsK); 
NEXT K 
PRINT eo 68 
NEXT I © ; 
REMARK EVALUATE MATRIX 
FOR J=1 TO N-1 
IF ECJsJ)=0 THEN 560 
FOR I=J+1 TO N 
LET Q=ECIsJ)/EC Js J) 
FOR K=J TO N+1l 
LET ECIsKI=ECIsK) -EC Us K) ¥Q 
NEXT K 
NEXT I 
NEAT J 
REMARK SOLVE FOR X(N) 
IF ECN»N)=0 THEN 520 
LET 1=N+1 
LET X(N) SECNsID/ECNSN) 
FOR J=1 TO N-l 
LET S=0 
FOR Kel TO J 
LET S=S+tECN-Js1-K) *XCI-K) 
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FOLLOWED" 


q 


NEXT K 
LET X(N-J)=CECN-Js1)-S)/ECN=-JUs Nou) 
NEXT J 

REMARK PRINT VALUES 
PRINT 
FOR J=1 TON 
PRINT XCM Ia XC I) 
NEXT J 
GO TO 530 
PRINT 
PRINT "NO UNIQUE SOLUTION" 
PRINT 
PRINT 
PRINT 
GOTO 110 
FOR T= J+tl TON 
IF ECTsJ)<>0 THEN 600 
NEXT T 
GOTO 520 
FOR C=J TO Nil 
LET A=ECJsC) 
LET ECJsCI=ECTsC) 
LET ECTsC)=A 
NEXT C 
GOTO 210 
DATA O 
END 
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DISCIPLINE CALCULUS - GRADE 13 
SUBJECT TANGENT SLOPE FOR 
ANY FUNCTION 


PROGRAM NAME SLOPE 


DESCRIPTION: 
This program considers a function which is differentiable at x=a, 


and at all points in the interval [a,a+1]. The value of the derivative at 
x=a is approximated through secant slopes. 


OBJECTIVES: 

A. The preliminary discussion of the method whereby the machine solves 
the problem enhances the students' comprehension of the techniques. 
These techniques are then used in developing the analytic method for 
finding the slope of the tangent line. 


B, The type-out of successive approximations to the tangent slope clarifies 
and dramatizes the nature of the limiting processes. 


C. Time-saving factor through the elimination of lengthy computations. 


PRELIMINARY PREPARATION: 


Materials 


The diagram below may be shown to the students on a blackboard, 
or an overhead projector, to explain the computations geometrically. 
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Tangent 
(Limiting Case) 


' DISCUSSION: 


The use of the computer and the attendant discussion of the program 
dramatically introduces the idea of differentiation. 
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é SLOPE 
SECANT SLOPE OF A CURVE - THE DERIVATIVE 


THIS PROGRAM CONSIDERS A FUNCTION OF X CY=F(X)) WHICH IS 
- DIFFERENTIABLE AT X#A AND AT ALL POINTS IN THE INTERVAL 
(AsA%1)- THE VALUE OF THE DERIVATIVE AT X#A IS 
APPROXIMATED THROUGH SECANT SLOPES. 


AFTER THE PROGRAM STOPS» TYPE IN THE FOLLOWING: 
(END EACH LINEs INCLUDING "RUN*s WITH A °CARRIAGE RETURN’) 


1 @O TO 300 
300 DEF FNY(X)seceee CYOUR FUNCTION OF X)eceoe 
RUN 


FOR EXAMPLE, TO FIND THE SLOPE OF THE EQUATION YeXr3 
YOU WOULD TYPE AS FOLLOWS? 


1 60 TO 300 | 
300 DEF FNYCX)=X13 
RUN 


YOU MIGHT TRY THAT AS YOUR FIRST RUN- 

FOR SUBSEQUENT RUNS» YOU NEED ONLY CHANGE LINE 300 FOR 
A NEW FUNCTION, FOLLOWED BY ‘RUN’. 

READY 

1 GO TO 300 

WO DEF FNY(X)2X#3 

RUN 

FOR WHAT VALUE OF A IS THE SLOPE TO BE EVALUATED? 2 


‘CHANGE IN X° IS THE DISTANCE FROM °A°s AND ‘CHANGE iN Y° 
TS THE DISTARCE FROM ‘FCA)*® UPON WHICH THE SLOPE IS CALCULATED. 


CHANGE IN X CHANGE IN Y SECANT SLOPE % CHANGE IN SLOPE 
4s i 19 19 NO PREVIOUS VALUE 
17 2 70625 18.25 1973684 

17 4 3¢390625 13-5625 11.-06557 

i7 & -32§95703 12+ 76562 § 875576 

{7 16 07736616 12.37891 3-029376 

{7 32 23808899 {2.18848 1.53834 

17 64 © 1869687 1209399 ©7751 783 

i7 126 009411669 1804694 0386910313 

17 256 004696667 12002347 01948049 

17 $128 002346039 1201172 009771946 

17 10284 003178447 12-00886 2048 78049 

17 2046 5 -860806E-3 12.60293 002440215 

Seeue 


DO ‘YOU WISH TO USE A DIFFERENT VALUE OF X (1-YESs O-NO)? 0 
TO CHANGE YOUR FUNCTION SEE THE INSTRUCTIONS. 

IF YOU ARE FINISHED, TYPE °1°s AND THE ‘RETURN’ KEY 

AFTER THE PROGRAM STOPS. 


READY 
i 
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Ww 


¢ 
¢ 


REM SECANT SLOPE OF A CURVE - Qe Je O'CONNOR 6-12-68 
REM REVISED 6-7°70 (De. PESSEL) (COMBINATION OF SLCUQ AND DIFFO> 
REM IMPORTANT VARIABLES S-SECANT SLOPES P-PERC CHANGES 
REM D-CHANGE IN X3 Y-CHANGE IN ¥ 
Let $isd 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


“TABC10)3"SECANT SLOPE OF A CURVE - THE. DERIVATIVE” 


“THIS PROGRAM CONSIDERS A FUNCTION OF X CY¥@#F(X)) WHICH IS” 
“DIFFERENTIABLE AT X#A AND AT ALL POINTS IN THE INTERVAL” 
"CAsAtl)« THE VALUE OF THE DERIVATIVE AT XeA 15® 
“APPROXIMATED THROUGH SECANT SLOPES«” 


“AFTER THE PROGRAM STOPS, TYPE IN THE FOLLOWINGS” 
"CEND EACH LINE» INCLUDING ‘RUN's WITH A *CARRIAGE RETURN’) 


“ 1 Go TO 300” 
” 300 DEF FNY(X)2.ee-CYOUR FUNCTION OF X)oceo™ 
” RUN” 


“FOR EXAMPLE, TO FIND THE SLOPE OF THE EQUATION Y¥=#Xt3" 
“YOU WOULD TYPE AS FOLLOWS: 


“ 1 GO TO 300” 
‘i 900 DEF FNY(X)=Xt3" 
e RUN” 


“YOU MIGHT TRY THAT AS YOUR FIRST RUN.” 
“FOR SOBSEQUENT RUNS» YOU NEED ONLY CHANGE LINE 300 FOR” 
“A NEW FUNCTION, FOLLOWED BY ‘RUN*.” 


REM CALCULATION OF SLOPE AND PRINTOUT 
DEF FNY(X)eX+3 


PRINT 


“FOR WHAT VALUE OF A IS THE SLOPE TO BE EVALUATED"3 


INPUT A 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


‘PRINT 


PRINT 


“°CHANGE IN X° IS THE DISTANCE FROM °A‘*s AND ‘CHANGE IN Y** 
one eg DISTANCE FROM °FCA)* UPON WHICH THE SLOPE IS CALCO*: 
ve T eo” 


“CHANGE IN X"s"*CHANGE IN Y"»"SECANT SLOPE"s"% CHANGE IN SLOPE" 


Coenmaeen ee wt ,RMawocace oe of ®@acocce enw”, He eeeene ce anaeaa”® 


FOR Ne TO 11 

LET De8tn 

LET YeFNYCA¢1/D) -FNYCA) 
LET SepD*sy 

IF $130 THEN 447 


PRINT 
60 TO 


“2 /°Ds¥sSe"NO PREVIOUS VALUE" 
455 


LET P=#( CABSCS1-S))/S1 24100 


PRINT 


“T7°Ds¥eSeP 


LET Sis$ 
NEXT N 


PRINT 
PRINT 
PRINT 
PRINT 
INPUT 


“seeae 


“DO YOU WISH TO Use A DIFFERENT VALUE OF X (1-YESs O-NO)"3 
Q2 


IF Q2>0 THEN 305 


PRINT 
PRINT 
PRINT 
END 


“TO CHANGE YOUR FUNCTION SEE THE INSTRUCTIONS.” 
“IF YOU ARE FINISHEDs TYPE ‘1's AND THE *RETURN*® KEY* 
“AFTER THE PROGRAM STOPS." 


DISCIPLINE MATHEMATICS | 


~~ oo 


SUBJECT _ALGEBRA(9TH and 12TH GRADE) ) 


Suc 
PROGRAM NAME SQRT 
DESCRIPTION: 
This program finds the square root of counting numbers upto —_ ® 
five decimal places. 
© 
OBJECTIVES: 
A. To demonstrate and familiarize the students with square rnots. 
B. The method utilizes " pinching" Z between the endpoints of 
smaller and smaller domains. 
PRELIMINARY PREPARATION: 
A. Student -1) The definition of square root as the inverse operation . 
of squaring; and 2) Drill in estimating square roots to the nearest tenth, 
hundredth, etc. : 
i 


B. Materials - none 


DISC USSION: 


This program provides an "introduction to," anda "review oft 
evolution and involution. Limiting the neighborhood of {Z to find 
successively closer approximations of the square root of a number, 
demonstrates to the student that he is able to determine the square root 
to any degree. | . 


The program may be effectively utilized for introducing the 
limiting process. 
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PROGRAM FINDS SQUARE ROOT OF ANY POSITIVE NUMBER 
BY *PINCHING® IT WITHIN A SMALLER AND SMALLER INTERVAL. 


WHAT 1S THE NUMBER WHOSE SQUARE ROOT YOU SEEK? 54 


LOWER LIMIT UPPER LIMIT 
0 < SQeRT+ OF 54 < 54 
5A. < SQeRTe OF 54 < 10-8 
7-02 < SQ-eRT- OF 54 < 7°56 
70344 < SQeRTe OF 54 < 72396 
72344 < SQeRTe OF 54 < 7¢3494 
72348319 < SQeRT- OF S54 < 7¢348859 
7¢348427 < SQeRT- OF SA < 72348461 
7348465 < SQeRT- OF S54 < 7234847 
7¢348469 < SQeRT-e OF 54 < 7234847 


APPROXIMATION NOW CORRECT TO AN ACCURACY OF 1-000000E-5 
YOU MAY USE EITHER 7-348469 OR 734847 AS THE SQUARE ROOT OF 54 


WANT TO TRY ANOTHER NUMBER’ (1=YESs O=NO) 3 ? 1 


WIAT IS THE NUMBER WHOSE SQUARE ROOT YOU SEEK? 39 


LOWER LIMIT UPPER LIMIT 
0 < SQeRT- OF 39 < 39 

309 < SQeRTe OF 39 < 7108 

6°24 < SQeRTe OF 39 < 6°63 

6-24 < SQeRT- OF 39 < 6-279 
602439 < SQeRT- OF 39 < 6¢2478 

6 «24468 < SQeRTe OF 39 < 6e24507 
60244992 < SQeRTe OF 39 < 6245031 
60244996 < SQeRT- OF 39 < 60245 


APPROXIMATION NOW CORRECT TO AN ACCURACY OF 1 OOOO000E-5 
YOU MAY USE EITHER 6-244996 OR 6+¢245 AS THE SQUARE ROOT OF 39 


WANT TO TRY ANOTHER NUMBER (1=YES» O=NO) 3 ? O 


READY 
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REM Te BURNS» JOHN GLENN HSs 8-6-69 
REM REVISED BY CeLOSIK 8-27-70 
REM A®#LOWER LIMIT» B2UPPER LIMITs Z=#STEP IN INTERVAL 
REM E IS THE ACCURACY YOU DESIRE 
LET E#-00001 
PRINT “PROGRAM FINDS SQUARE ROOT OF ANY POSITIVE NUMBER” 
PRINT "BY ‘PINCHING* IT WITHIN A SMALLER AND SMALLER INTERVAL." 
PRINT 
PRINT | 
PRINT "WHAT IS THE NUMBER WHOSE SQUARE ROOT YOU SEEK'S 
INPUT Z 
PRINT 
IF Z>0 THEN 220 
PRINT “YOUR NUMBER MUST BE POSITIVE !!!" 
GO TO 160 
PRINT 
PRINT “LOWER LIMIT"s” "5" “s*UPPER LIMIT” 
PRINT COnanwane wwe antl 08 oo ine once aaanan eanaa tt 
LET A#0 
LET BeZ 
LET S#(B-A)/10 
PRINT As"< SQeRT+e OF"Z"<"5B 
IF ABSCA*B-Z)<E THEN 360 
FOR I=A TO B STEP S 


IF Z<I1*I THEN 310 
NEXT I 
LET B=B*10 


GO TO 


260 


LET B=I 
LET AzI-S 


GO TO 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 


260 
"APPROXIMATION NOW CORRECT TO AN ACCURACY OF"E 
"YOU MAY USE EITHER"A”"OR"B"AS THE SQUARE ROOT OFZ 


"WANT TO TRY ANOTHER NUMBER (12YESs ONO) 3 °'5 
Z 


IF Z=1 THEN 150 
IF Z<>0 THEN 400 


END 
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DISCIPLINE ATHEMATICS_TEACHER ASSISTANCE 
SUBJECT ARITHMETIC MEAN (AVERAGE) 
PROGRAM ~ STATAL 


DESCRIPTION: 

Tu yee finds the average (arithmetic mean), median, and standard 
deviation of up to one hundred numbers. 

OBJECTIVES: 


A. To familiarize the student with the concepts of arithmetic mean 
(average), median, and standard deviation of a group of numbers. 


B. To impress him with the Bperd and eee of the computer as a 
calculating device. 


C. To provide teachers with handy means of computing averages. 


PRELIMINARY PREPARATION: 


A. Student - "Arithmetic mean", "average", Miata and "standard 
deviation" must be well-defined. 


B. Materials -— None 


DISCUSSION: 


Given N terms, "A(1), A(2),..., A(N-1), A(N)", students will have 


learned the average of these N terms is "A(1)+A(2)+...A(N-1)+A(N)". 
N 2 


The program prints out the median value of the user's data when 
there is an odd number of data values. When there is an even number, 
the median value printed is the average between the N/2 and the 

(N+2 }/2 terms. 


The program serves as an excellent vehicle for drill in division and © 
addition, and helps strengthen the concept of arithmetic mean (average). 


This program is useful in demonstrating a simple "loop" routine for 
students interested in programming. 
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MEAN» MEDIANs AND DEVIATION OF A SET OF NUMBERS- ) 


ENTER YOUR NUMBERS IN DATA STATEMENTS ON LINES 
1000 - 2000- FOR EXAMPLEs YOU MIGHT TYPE 3: 


1000 DATA) 15923384 ETCe+ CYOUR DATA GOES HERE) 
WHEN YOUR DATA HAS BEEN ENTEREDs TYPE 2 


1 GO TO 300 
RUN © 


THEN RELAX WHILE THE MACHINE GKINDS OUT THE ANSWERS- 


IF A "SUBSCRIPT ERROR" APPEARS» INCREASE THE SIZE OF THE 
ARRAY IN LINE 295- 


WARNING -- THE NUMBER 9999 IS USED AS AN INTERNAL DATA 
VALUEe IF THIS VALUE IS ONE OF YOUR DATA VALUES» SIMPLY 
RE-TYPE LINES 999 AND 2001 WITH A COMMON DATA VALUE WHICH 
YOU WILL NOT USE- 


READY 


1000 DATA 2445182911252519821053145 169518536 
1 GO TO 300 
RUN 


THESE ARE YOUR NUMBERS : = 
244 182 112 2 198 10 314 169 18 38 


THESE ARE YOUR NUMBERS CHIGHEST TO LOWEST) 3 
314 244 198 182 169 112 38 #18 10 2 


NUMBER OF VALUES IS. 10 

SUM OF THE VALUES IS 1287 

THE MEAN VALUE IS 128-7 

THE MEDIAN VALUE IS 140-5 

THE STANDARD DEVIATION IS 209-5409 





FOR ANOTHER RUN» RE-ENTER DATA ON LINES 

1000 - 20005 TAKING CARE TO ELIMINATE OLD DATA 

BY TYPING THOSE LINE NUMBERS WHICH YOU DO NOT USE AGAIN3 

THEN TYPE 'RUN’. id 


READY 
1 
1000 
N44 
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"100 
110 
115 
120 
130 


REM CHARLES Me LOSIKs BKLYN POLYs MEAN-MEDIAN-DEVIATION 
REM (¢€7-66 IN FORTRAN II) 3 €8-26-70 IN BASIC) 

REM REVISED 9-24-70 

REM YOU PUT YOUR NUMBERS IN DATA STATEMENTS AND — 

REM YOU GET WHAT YOU PAY FOR. 
PRINT " "s"MEANs MEDIANs AND DEVIATION OF A SET OF NUMBERS-" 


PRINT " ENTER YOUR NUMBERS IN DATA STATEMENTS ON LINES" 
PRINT " 1000 = 2000- FOR EXAMPLEs YOU MIGHT TYPE 3" 


PRINT 
PRINT * "3"1000 DATA 15258324 ETCe (YOUR DATA GOES HERE)" 
PRINT 

PRINT " WHEN YOUR DATA HAS BEEN ENTEREDs TYPE 3" 

PRINT 


PRINT ™" "53°1 GO TO 300" 
PRINT " "s"*RUN" 


PRINT “ THEN RELAX WHILE THE MACHINE GRINDS OUT THE ANSWERS." 


PRINT " IF A "SUBSCRIPT ERROR’ APPEARS», INCREASE THE SIZE OF THE" 
PRINT " ARRAY IN LINE 295" 


REM ACI) ARE THE NUMBERS» S IS THEIR SUM» 
REM S2 1S THE SUM OF THEIR SQUARES « 


PRINT “" WARNING -- THE NUMBER 9999 IS USED AS AN INTERNAL DATA" 
PRINT " VALUEe IF THIS VALUE IS ONE OF YOUR DATA VALUES» SIMPLY" 
PRINT " RE-TYPE LINES 999 AND 2001 WITH A COMMON DATA VALUE WHICH" 
PRINT " YOU WILL NOT USE" 

STOP 

DIM AC100) 

PRINT 

PRINT " THESE ARE YOUR NUMBERS :" 

LET I=1 

READ E 

LET S=0 

LET S2=0 

READ ACI) 

IF E = ACI) THEN 370 

PRINT ACI) 3 


LET S = 5 + ACI) 

LET S2 = S2 + ACID * ACI) 
LET I = 1+ 1 

GO TO 320 

LET N=1-1 

PRINT 

PRINT 


REM #*4#** BUBBLE SORT**#4##* 
PRINT " THESE ARE YOUR NUMBERS (HIGHEST TO LOWEST) :" 
FOR I = 1TON-1 
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410 FOR J= 1 +1 T0N 

420 IF ACL) > ACJ) THEN 460 

430 LET T = ACI) 

440 LET ACL) = ACY) | 

450 LET ACy) = T * 
460 NEXT J | 
465 PRINT ACI) 3 | 
470 NEXT I ’ e 
475 PRINT ACN) 

480 PRINT 

490 PRINT 

500 PRINT " NUMBER OF VALUES IS"3N 

510 PRINT " SUM OF THE VALUES IS"3S 

520 PRINT " THE MEAN VALUE IS" 3 S / N 

530 PRINT " THE MEDIAN VALUE IS" 3 

540 IF N / 2 <> INT € N / 2 ) THEN 570 

550 PRINT € ACN/2) + AC(N+2)/2))72 

560 GO TO 600 

570 PRINT AC(N+1)/2) 

600 PRINT " THE STANDARD DEVIATION IS" 3 SQR( N* S2+S*S)/N 

610 PRINT Te 
620 PRINT 

630 PRINT " FOR ANOTHER RUNs RE-ENTER DATA ON LINES" 

640 PRINT " 1000 - 2000s TAKING CARE TO ELIMINATE OLD DATA" 

642 PRINT * BY TYPING THOSE LINE NUMBERS WHICH YOU DO NOT USE AGAINS" 
645 PRINT " THEN TYPE ‘RUN'." 

650 STOP : 

999 DATA 9999 

2001 DATA 9999 

2010 END 


READY 
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DISCIPLINE MATHEMATICS, SOCIAL STUDIES 
SUBJECT THE STOCK MARKET 


PROGRAM NAME STOCK 


DESCRIPTION: 


This program simulates the stock market. Each student is 
given $10,000 with which he may buy and/or sell shares in five 
fictitious issues. 


OBJECTIVES: 


A. To give the student a simple understanding of the oper- 
ations of the stock market. 


B. To motivate the student to reinforce his basic arithmetic 
skills. 


C. To give an example of the use of everyday mathematics 
and economics in everyday life. 


PRELIMINARY PREPARATION: 
A. Student - no special preparation 
B. Materials - possibly graph paper 
DISCUSSION: 


This program can be used as a good motivation device in the 
teaching of basic stock-market concepts, and the basic mathemat- 
ical skills involved. The computer starts each student with $10,000, 
and allows him to buy and/or sell shares. Precautionary tests are 
included for the student who tries to purchase more shares than 
he has money for, or to sell more shares than he actually owns. 

The program continues for as many trading days as the student de- 
sires. 


The stock values rise and fall on a semi-random basis. On 
each trading day all stocks undergo a small random price change, 
a trend change (based on a random trend), and the possibility-- 
on a random basis--of a large price change. The structure of the 
formula is: 


new price=old price + (trend x old price) + (small random price 
change ) + (possible large price change ) 
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The trend is a random number between -.1 and +.1. It remains 
constant for a random number of days, at which time the trend is 
changed randomly. The trend affects all stocks equally, and attempts 
to simulate general market trends. The small random change ranges 
between -3 and +3 points. It occurs every day to every stock. 

The possible large price change is either +10 or -10 points. The 

+ and - changes each occur at random day intervals, and to random 
stocks. That is, there may be no large change on some trading days, 
only a +10 change on others, a -10 change on still others, and both 
large and small changes on others. In all large-change cases, the 
change affects only one random stock when it occurs. 


Because of the random generation of stock values and their 
fluctuations, the program does not exactly simulate the real market. 
It does, however, provide a simplified view of what does happen, 
and familiarizes the student with the basic functions involved. This 
should be explained to the students, along with some real causes 
of stock-market fluctuations. 


Graph paper might be used to plot the daily stock values and 
the exchange average. In this way, the trend will become evident. 


THE STOCK MARKET 
DO YOU WANT THE INSTRUCTIONS CYES-TYPE 1s NO-TYPE 0)? 1 


THIS PROGRAM PLAYS THE STOCK MARKET-e YOU WILL BE GIVEN 
$10,000 AND MAY BUY OR SELL STOCKS. THE STOCK PRICES WILL 
BE GENERATED RANDOMLY AND THEREFORE THIS MODEL DOES NOT 
REPRESENT EXACTLY WHAT HAPPENS ON THE EXCHANGE. A TABLE 
OF AVAILABLE STOCKS, THEIR PRICES» AND THE NUMBER OF SHARES 
IN YOUR PORTFOLIO WILL BE PRINTED. FOLLOWING THIS» THE 
INITIALS OF EACR STOCK WILL BE PRINTED WITH A QUESTION 
SARK. HERE YOU INDICATE A TRANSACTION. TO BUY A STOCK 
TYPE «NNN» TO SELL A STOCK TYPE -NNN» WHERE NWN IS THE 
MUMBER OF SHARESe A BROKERAGE FEE OF 12% WILL BE CHARGED 
ON ALL TRANSACTIONS. NOTE THAT IF A STOCK’S VALUE DROPS 
TO ZERO IT MAY REBOUND TO A POSITIVE VALUE AGAIN. YOU 
HAVE $10,000 TO INVEST. USE INTEGERS FOR ALL YOUR INPUTS~ 
(NOTES TO GET A *FEEL® FOR TRE MARKET RUN FOR AT LEAST 

10 DAYS) 

a2e-eG00D LUCK! ----- 
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STOCK INITIALS PRICE/ SHARE 
INTe BALLISTIC MISSILES 1B 85-78 

RED CROSS OF AMERICA RCA 85-5 
LICHTENSTEIN» BUMRAP & JOKE LBv 195-25 
AMERICAN BANKRUPT CO. ABC 138 
CENSGRED BOOKS STORE CBS 104085 


NEW YORK STOCK EXCHANGE AVERAGE® 113-75 


TOTAL STOCK ASSETS ARE $0 
TOTAL, CASH ASSETS ARE $ 10000 
TOTAL ASSETS ARE $ 10000 


WHAT IS YOUR TRANSACTION IN 
16K? 8 
RCA? 3 
LBJ? 2 
AaBc? i 
CBS? 1 


606668668 END OF DAY'S TRADING 


STOCK PRICE/SHARE HOLDINGS VALUE 
IBM 96-5 8 193 
RCA 81 3 243 
LBYJ 163-5 i 153-5 
ABC 13505 i 135¢S 
cas 99 i 99 


Math 
STOCK 


NET PRICE CHANGE 
10-75 

4.5 

1-78 

-2-5 

5-25 


NEW YORK STOCK EXCHANGE AVERAGES 11361 NET CHANGES --65 


TOTAL STOCK ASSETS ARE $ &84 
TOTAL CASH ASSETS ARE $ 9166-85 
TOTAL ASSETS ARE S$ 9990-85 


DO YOU WISH TO CONTINUE CYES-TYPE 1s NO-TYPE 027 1 


WIAT IS YOUR TRANSACTION IN 
IBM? S$ 
RCA? 1 
LBJ? 1 
ABC? 1 
CBS? 0 


646064048 END OF DAY'S TRADING 


STOCK PRICE/SHARE HOLDINGS VALUE 
[BM 98.75 7 691-25 
RCA 68.5 4 330 
LBJ 154 2 308 
ABC 133-5 2 267 

| 102-75 


Cas 102.75 
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NET PRICE CHANGE 
2-25 

1-5 

5 
-3 

3e75 


NEW YORK STOCK EXCHANGE AVERAGES 11403 NET CHANGES 1-8 
TOTAL STOCK ASSETS ARE S$ 1699 

TOTAL CASH ASSETS ARE $ 6305-23 

TOTAL ASSETS ARE $ 10004283 


DO YOU WISH TO CONTINUE CYES-TYPE 1» NO-TYPE 0)? 1 
WIAT IS YOUR TRANSACTION IN 


*¢0844468 END OF DAY'S TRADING 


stock PRICE/SHARE HOLDINGS VALUE NET PRICE CHANGE 
IBM 99.285 10 99205 5 

RCA 82-85 é 49305 -285 

LBJ 15475 7 1083-25 °75 

aac 133-5 1 13305 fr) 

Cas 163-25 a 413 05 


NEW YORK STOCK EXCHANGE AVERAGES 114-6 NET CHANGES 3 


ret STOCK ASSETS ARE $ 3115-75 
TAL CASH ASSETS ARE $ 6862-5 
TOTAL ASSETS ARE $ 9998-85 


DO YOU WISH TO CONTINUE CYES-TYPE 1. NO-TYPE 0)? 1 
vane 1S YOUR TRANSACTION IN 
IBM? «65 


§ 
fou 


*heeeeee4% END OF DAY'S TRADING 


PRICE/SHARE HOLDINGS VALUE NET PRICE CHANGE 


STOCK 

IBM 96-75 15 1451-25 “265 
RCA 80-5 9 724.5 -1-75 
LBJ 450 12 1800 475 
ABC 132 a - §26 -105 
cas 98-75 8 790 4.5 


NEW YORK STOCK EXCHANGE AVERAGES 11126 NET CHANGES -3 


TOTAL STOCK ASSETS ARE S$ $2893.75 
TOTAL CASR ASSETS ARE $ 4526.95 
TOTAL ASSETS ARE $ 9622-7 72 


DO YOU WISH TO CONTINUE (YES-TYPE 1, NO-TYPE 0)? 1 
wiaT is YOUR TRANSACTION IN 
166? 


ebeeeeeeee END OF DAY*®S TRADING 


STOCK PRICE/SHARE HOLDINGS VALUE 


IBM 9667S is 8451-25 
RCA 66-75 & 267 

LBJ 150-75 5 753075 
ABC 132 4 528 

css 95075 3 287-85 


Math 
STOCK 


NET PRICE CHANGE 
0 


-13-75 
275 
9 

-3 


NEW YORK STOCK EXCHANGE AVERAGES 10504 NET CHANGE? -3-8 


TOTAL STOCK ASSETS ARE $ 3287-85 
TOTAL CASH ASSETS ARE $ 6455.74 
TOTAL ASSETS ARE S$ 9748-99 


DO YOU WISH TO CONTINUE CYES-TYPE is NO-TYPE 0)? 1 
WIAT IS YOUR TRANSACTION IN 

IBM? -10 

RCA? -2 

LBJ? & 

ABC? 2 

CBS? 0 


SbeeSee408 END OF DAY°S TRADING 


STOCK PRICE/SHARE HOLDINGS VALUE 
IBM 8768 § 43705 
‘REA 58 2 116 
“LB 135-85 7 946-75 
aac 18265 6 735 
cas 98.75 3 296.28 


NET PRICE CHANGE 
-9 85 
8075 
©1565 
905 
3 


NEW YORK STOCK EXCHANGE AVERAGE: 100-4 NET CHANGES -& 


TOTAL STOCK ASSETS ARE $ 2531-5 
TOTAL CASH ASSETS ARE $ 6974-58 
TOTAL ASSETS ARE $ 9506.08 


BDO YOU WISH TO CONTINUE CYES-TYPE 1, NO-TYPE 027 1 
WIAT IS YOUR TRANSACTION IN 

IBM? <4 

RCA? -3 

LBJ? -6 

ABG? -8 73 

CBS? -2 


Math 


STOCK 
*2296¢6680 END OF DAY*S TRADING 
STOCK PRICE/ SHARE HOLDINGS VALUE NET PRICE CHANGE 
IBM 80 | &0 72S 
RCA §1 4 $3 -7 
LBJ 121.75 1 121.75 “1365 
asc 109-5 4 438 13 
cas 91.5 i 9165 7-25 


NEW YORK STOCK EXCHANGE AVERAGEs 90.75 NET CHANGES -9-65 


TOTAL STOCK ASSETS ARE $% 782-285 
TOTAL CASH ASSETS ARE S$ 8619-96 
TOTAL ASSETS ARE $ 9403-81 


BO YOU WISH TO CONTINUE (YES-TYPE 1s NO-TYPE 03? 1 


WIAT 1S YOUR TRANSACTION IN 
IBN? 0 


#66820048% END OF DAY’S TRADING 


STOCK PRICE/SHARE HOLDINGS VALUE NET PRICE CHANGE 
15M 7705 i 77-5 $8.5 

RCA $2.25 i §2-25 1-85 

LBJ 119.25 i 119.25 -3-5 

ABC 107 i 107 “B05 

CBs 92¢25 | 92-285 °75 


NEW YORK STOCK EXCHANGE AVERAGES 89-65 NET CHANGES -1.1 


TOTAL STOCK ASSETS ARE % 446-85 
TOTAL CASH ASSETS ARE $ 6945.18 
TOTAL ASSETS ARE S$ 9393-43 


DO YOU WISH TO CONTINUE (YES-TYPE 1s» MO-TYPE 0)? 1 


WIAT IS YOUR TRANSACTION In 
IBM? 0 
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STOCK 
*646S60060 END OF DAY'S TRADING 
STOCK PRI CE/ SHARE HOLDINGS VALUE NET PRICE CHANGE 
IBM 74-5 i 7405 @3 
RCA 54 | $4 1278 
Lad 107 i 107 -12-25 
ABC 10s | 106 i 
cas 90-78 13 998-25 165 


‘MEV YORK STOCK EXCHANGE AVERAGE: 66.85 NET CHANGES -2-8 
TOTAL STOCK ASSETS ARE $ 1341-75 
TOTAL CASH ASSETS ARE $ 8013-46 
TOTAL ASSETS ARE $ 9355283 


DO YOU WISH TO CONTINUE CYES-TYPE 1, NO-TYPE 097 1 
GIAT . YOUR TRANSACTION IN 


eheeeeeeean END OF DAY°S TRADING 


STOCK PRICE/SHARE HOLDINGS VALUE WET PRICE CHANGE 
IBM 78 438 2-5 
RCA 52-5 7 36705 1.5 

LBJ 105 41 3155 -8 

aac 10325 if 1135-75 ©4075 

cas 91-5 a1 1921.5 075 


MEV YORK STOCK EXCHANGE AVERAGE: 64.85 NET CHANGES -2 
TOTAL STOCK ASSETS ARE $ 5011-75 

TOTAL CASA ASSETS ARE $ 4221.92 

TOTAL ASSETS ARE $ 9233-67 | 

BO YOU WISH TO CONTINUE CYES-TYPE 1, NO-TYPE 0)? 0 

HOPE YOU HAD FuMtt 


READY 
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REM STOCK MARKET SIMULATION -STOCK- STOCK 

REM REVISED 8/18/70 (De PESSELs» Le BRAUN» Co LOSIK) 

REM IMP VRBLSt A°-MRKT TRND SLP3 BS-BRKRGE FEES C=TTL CSH ASSTS3 
REM C5-TTL CSH ASSTS (TEMP)3 CC1)-CRNG IN STK VAL3 D-TTL ASSTS3 
REM ElsE2-LRG CHNG MISC3 I-STCK #3 11,12-STCKS W LRG CHNG3 


‘REM NioN2-LRG CHNG DAY CNTS3 P5-TTL DAYS PRCHSS3 P(1)-PRIFL CNTNTS3 


REM Q9-NEW CYCL?3 S4-SGN OF A3 SS-TTL DYS SLS3 S(1)-VALUE/SHR3 
REM T-TTL STCK ASSTS3 TS5-TTL VAL OF TRNSCTNS3 
REM W3-LRG CHNGS X1-SMLL CHNG(<$1)93 Z4sZ5seZ6°NYSE AVE+3 Z2(1)-TENSCTN 
PRINT TABC20)3°THE STOCK MARKET” 

DIM SCS) P65) 2265) 2605) 
REM SLOPE OF MARKET TRERD3A (SAME FOR ALL STOCKS) 

RANDOMIZE 

LET A#INTC CRND(X) 710 )*1004+25) 7100 

LET T5#0 

LET X90 

LET NjJ=0 

LET N2=0 

LET Eis0 

LET E2=0 
REM INTRODUCTION 

PRINT "DO YOU WANT THE INSTRUCTIONS CYES-TYPE 1s NO-TYPE 0)%3 
INPUT Z9 

PRINT 

PRINT 

IF Z9<1 THEN 200 

PRINT "THIS PROGRAM PLAYS THE STOCK MARKET- YOU WILL BE GIVEN” 


- PRINT "$10,000 AND MAY BUY OR SELL STOCKS. THE STOCK PRICES WILL” 


PRINT "BE GENERATED RANDOMLY AND THEREFORE THIS MODEL DOEZS NOT® 
PRINT “REPRESENT EXACTLY WHAT HAPPENS ON THE EXCHANGE. A TABLE” 
PRINT “OF AVAILABLE STOCKS. THEIR PRICES, AND THE NUMBER OF SHARES” 
PRINT “IN YOUR PORTFOLIO WILL BE PRINTED. FOLLOWING THIS, THE” 
PRINT “INITIALS OF EACA STOCK WILL BE PRINTED WITH A QUESTION" 
PRINT “MARK. HERE YOU INDICATE A TRANSACTION. 10. BUY A STOCK" 
PRINT “TYPE +NNN,» TO SELL A STOCK TYPE -NNM. WHERE NNN IS THE" 
PRINT “NUMBER OF SHARES. A BROKERAGE FEE OF 1% WILL BE CHARGED* 
PRINT “ON ALL TRANSACTIONS. NOTE THAT IF A STOCK*S VALUE DROPS” 
PRINT “TO ZERO IT MAY REBOUND TO A POSITIVE VALUE AGAIN. YOU" 
PRINT “HAVE $10,000 TO INVEST. USE INTEGERS FOR ALL YOUR INPUTS." 
PRINT “(NOTES TO GET A FEEL’ FOR TRE MARKET RUN FOR AT LEAST“ 
PRINT “10 DAYS)” 

PRINT “---=<G00D LUCK! -----" 
REM GENERATION OF STOCK TABLES INPUT REQUESTS 
REM INITIAL STOCK VALUES 

LET S¢1)#100 

LET S(2)885 

LET S(3)#150 

LET $(4)=140 

LET $(5)=110 
REM INITIAL T6 - # DAYS FOR FIRST TREND SLOPE (A) 

LET TOaINT(4.99*RND(X) +1) 
REM RANDOMIZE SIGN OF FIRST TREND SLOPE (A) 

IF RND(X)>.5 TREN 270 

LET AeA 

REM RANDOMIZE INITIAL VALUES 

GOSUB 830 
REM INITIAL PORTFOLIO CONTENTS 

FOR I=i TO 5 

LET PC1)=0 

LET Z(1500 76 

NEXT I 

PRINT" 


SS sk SESE 


w 
o- 
© 


SSSZIERE SES 


PRINT . Math 
REM INITIALIZE CASH ASSETS3C = 
LET C#10000 STOCK 
REM PRINT INITIAL PORTFOLIO 

PRINT “STOCK.” *,”“ INITIALS" s"PRICE/SHARE” 

PRINT “INT. BALLISTIC MISSILES"s® IBM "sSC1) 

PRINT “RED CROSS OF AMERICA"s™ RCA®sS(2) 

PRINT “LICHTENSTEINs BUMRAP & JOKE*s” LBuU"sS(3) 

PRINT “AMERICAN BANKRUPT COc"»" ABC",SC4) 

PaEMS “CENSURED BOOKS STORE”.” CBS"»sS(5) 

PRINT 
REM NYSE AVERAGESZ5) TEMPs VALUESZ43 NET CHANGESZ6 

LET Z4®Z5 . 

LET Z5=0 

LET T=0 


FOR Is] TO 5 
LET 2$#Z5+S¢1) 
LET T#T+SCI)SP (1) 


NEXT 1 


LET ZSaINTC100#(Z5/5)405)7100 
LET Z6"INT( (25-24) %*10040857100 
REM TOTAL ASSETS#D 

LET D=Tec 

IF X9>0 THEN 396 


PRINT 
GO TO 
PRINT 
PRINT 


“NEW YORK STOCK EXCHANGE AVERAGE: “ZS 
399 
“NEW YORK STOCK EXCHANGE AVERAGES “25° ## WET CHANGES 'Z6 


LET Te INTC 100*T+.5)7100 


PRINT 


“TOTAL STOCK ASSETS ARE $"3T 


LET C#INT<C 1008C+-5)7100 


PRINT 


“TOTAL CASH ASSETS ARE $"3C 


LET D= INTC 100*D¢.5)7100 


PRINT 
PRINT 


*TOTAL ASSETS ARE $”3D 


IF X9=0 THEN 416 


PRINT 
INPUT 


or YOU WISH TO CONTINUE CYES-TYPE 1s NO-TYPE 0)%3 


IF Q9<3 THEN 998 
REM INPUT TRANSACTIONS 


PRINT 


“WHAT IS YOUR TRANSACTION IN” 
* IBN 3 


REM TOTAL DAY°S PURCHASES IN $8P5 
LET PS=0 ; 
REM TOTAL DAY°S SALES IN $32S5 
LET SS#0 
FOR Is3 TO 5 
LET ZCI wINTCZCI 405) 
IF Z¢C1}<e0 THEN 610 
LET PSeP5*Z(1)#S¢1) 


ao TO 


620 
77 


684 
656 
656 


660 
674 
675 
630 


Math 


LET SS$#SSeZ¢1)#S¢1)> STOCK 


IF 


-ZC1)<aP(1) THER 620 


PRINT “YOU HAVE OVERSOLD A STOCKS TRY AGAIN.” 
GO TO 420 
NEXT I 


REM TOTAL VALUE OF TRANSACTIONS:TS 

LET TS=P5+S5 
REM BROKERAGE FEE?BS 

LET BS#INTC .01*T5*1004.537100 
REM CASH ASSETS*OLD CASH ASSETS-TOTAL PURCHASES 
REM -BROKERAGE FEES+TOTAL SALESSCS 

LET CS*C-PS$-B5+S5 


iF 


CS>s0 THEN 674 


PRINT “YOU HAVE USED $"-C5" MO ; 
RE THEN YOU HAVE.“ 

40 TO 420 

LET Cac5 
REM CALCULATE NEW PORTFOLIO 

FOR is} TO 5 

LET PCI sPCId4Z63) 

MEXT I 
REM CALCULATE NEW STOCK VALUES 

GOSUB &30 
REM PRINT PORTFOLIO 
REN BELL RINGING-°DIFFERENT ON MANY COMPUTERS 
FOR Jeli TO 20 

PRINT CHRS( 3353 

NEXT 1 

PRINT 

PRINT “aeeeeeee00 END OF DAY'S TRADING” 
PRINT 

PRINT 


iF 


X9<1 THEN 769 


PRINT “STOCK” .”°PRICE/ SHARE” “HOLDINGS” s”VALUE"s"NET PRICE CHANGE” 
PRINT “IBM” s SCL)» PCADs SCAIBPCEDs CCL) 
PRINT “RCAWs SC8)s PC8ds SCBdePCAd. CCR) 
PRINT “LBJ"s SC330 PC3)e SC3d8PC335 CC3) 
PRINT “ABC™s SCA) PCAIe SCHIBPCA)s CCA) 
PRINT “CBS"s SC5)5 PC532 STSIBPC5)5 CCSS 


iF 


TO 360 

NEW STOCK VALUES - SUBROUTINE 

RANDOMLY PRODUCE NEW STOCK VALUES BASED ON PREVIOUS 

DAY*S VALUES 

Ni,sN@ ARE RANDOM NUMBERS OF DAYS WHICH RESPECTIVELY 
DETERMINE WHEN STOCK 11 WILL INCREASE 10 PTS- AND STOCK 

1@ WILL DECREASE 10 PTS. 

IF NI DAYS HAVE PASSED, PICK AN I!» SET Els DETERMINE NEW Wi 
Ni>O THEN 850 


LET [1s INTC 4.99*RND(X) 41) 
LET NiwINTC4.99*RND(X)41) 
LET El=i 
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7) 


Math 
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REM IF N& DAYS HAVE PASSEDs PICK AN [8s SET E@s DETERMINE NEW N2 
IF N&>O THEN 660 

LET TQsINTC4e99SRND(X)+1) 

LET N2eiNT(4.99¢RNDC(X) 615 

LET E£@«i 
REM DEDOCT ONE DAY FROM Ni AND N2@ 

LET NiesNi-1t 

LET N&eN@-1 
REM LOOP THROUGH ALL STOCKS 

FOR I#1 TO 5 

LET X1=*RND(X? 

IF Xi>.25 THEN 920 

LET X1#e285 

GO TO 935 

IF Xi>.50 THEN 925 

LET X1s.50 

@O TO 935 

IF X1>-75 THEN 930 

LET Xi=.75 

60 TO 935 

LET X120-0 
REM BIG CHANGE CONSTANT8W3 CSET TO ZERO INITIALLY) 
LET W320 

IF £1<i THEN 945 

IF INTCIL¢.5)<>INTC 34.5) THEN 945 
REM ADD 10 PTSe TO TRIS STOCKS RESET EI 
LET W3#10 

LET Ei#0 

IF E8<i THEN 955 

IF INTCI2¢.$)<>INTCI+.3) THEN 955 
REM SUBTRACT 10 PTS. FROM TRIS STOCKS RESET E2 
LET VW3=eW3-10 

LET E&=0 


REM CCI) IS CHANGE IN STOCK VALUE 


LET CCl mINTCASGSC IS OXI SINT ( 3-6eRND(X) 425) 0U3 

LET CCIDSINTC 10086703 942557100 

LET SC2585C194C¢1) 

IF SCI)>0 THEN 967 

LET C¢l1)=0 

LET S¢1580 

@0 TO 970 

LET Be rene eng ee 

NEXT 1 
REM AFTER T&S DAYS RANDOMLY CHANGE TREND SIGN AND SLOPE 
LET T&#TS-1i . 

IF T8<1i THEN 985 

RETURN 
REM RANDOMLY CHANGE TREND SIGN AND SLOPE (A)» AND DURATION OF 
REM OF TREND (TS) 

LET TSEsINT(4e99SRND(X)41) 

LET AwINTC CRND(X)/10'9%106%+5)7100 

LET S&sRNDC(X) 

IF S4<a.5 THEN 997 
LET A#-A 

RETURN 

ital “HOPE YOU HAD FUNI!* 


DISCIPLINE CALCULUS-GRADE 13 


SUBJECT AREA OF A SURFACE OF 


REVOLUTION 


PROGRAM NAME SURFAR 


DESCRIPTION: 

This program approximates the area of a surface of revolution, by 
computing lateral areas of frustrums of cones of revolution. 
OBJECTIVES: 

A. The saving of time in computations. 

B. The speedy demonstration of limiting processes. 

-C, The focusing of attention upon those processes needed to develop the 
analytic approach. 

PRELIMINARY PREPARATION: 

Before running this program, the lateral area of a frustrum of a 
cone should be discussed. Many students in the Advanced Placement 


Program have not taken a course in Solid Geometry and may be unfamiliar 
with the formula: 


Lateral Area =7 1 (r, + r,) 





Frustrum of a Cone 


Whether or not this formula is derived in class will depend on the amount 
of time available. Most likely it will merely be stated; students who have 
not taken Solid Geometry may be asked to look up the derivation on their own. 
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AREA OF A SURFACE OF REVOLUTION 


THIS PROGRAM APPROXIMATES THE AREA OF A SURFACE OF 
REVOLUTION BY COMPUTING LATERAL AREAS OF FRUSTUMS OF CONES 
OF REVOLUTION. TYPE IN YOUR FUNCTION OF X CY@F(X)), 

WHOSE GRAPH WILL BE ROTATED ABOUT THE X AXIS» AS FOLLOWS: 


1 GO TO 200 
300 DEF FNY(X)#.eeC YOUR FUNCTION OF X)ec- 
RUN 


FOR EXAMPLE» TO USE THE FUNCTION YexXt2 YOU WOULD TYPE 
1 GO TO 200 
300 DEF FNY(X)#Xt2 
RUN 
YOU MIGHT TRY THAT AS YOUR FIRST RUN. 
END EACH LINE» INCLUDING ‘RUN's WITH THE ‘*RETURN*® KEY. 
READY 
1 GO TO 200 


300 DEF FNY(X)aX12 
RUN 


WIAT ARE THE ABSCISSAS OF THE END POINTS OF THE SECTION 
TO BE CONSIDERED (SMALLER FIRST! PsQ)? <-352 


NUMBER OF SUM OF % CHANGE 
SUBINTERVALS APPROXIMATING AREAS IN SUM 
1 286.7671 NO PREVIOUS VALUE 
a 324-6229 11-68411 
4 317-6819 2.161263 
8 315-3346 © 7416313 
16 314-7434 1876635 
32 314-5933 004769154 
64 314-5557 001197374 
128 314-5461 3°025796E°3 


WOULD YOU LIKE TO TRY NEW END POINTS C1-YESs O-NO)? O 
TO ENTER A NEW FUNCTION YOU NEED ONLY RETYPE LINE™ 
300 AND °RUN®°. SEE INSTRUCTIONS FOR MORE DETAILS.~ 

IF YOU ARE FINISHED» TYPE ‘1* AND THE *RETURN’ KEY. 


READY 
811 
i 


v 


REM AREA OF A SURFACE OF REVOLUTIONs Qe Je O°CONNORs 7/12/68 
REM REVISED 8/81/70 (De PESSEL) | , 

ape TABC17)3 SAREA OF A SURFACE OF REVOLUTION” 

PRINT 

PRINT “ THIS PROGRAM APPROXIMATES THE AREA OF A SURFACE OF” 
PRINT “REVOLUTION BY COMPUTING LATERAL AREAS OF FRUSTUMS OF CONES” 
PRINT “OF REVOLUTION. TYPE IN YOUR FUNCTION OF X (Y@FCX))5" 
PRINT “WHOSE GRAPH WILL BE ROTATED ABOUT THE X AXIS» AS FOLLOWSs” 
PRINT 


PRINT “ 1 GO TO 200" 

PRINT " 300 DEF FNY(X)s.eeC YOUR FUNCTION OF X)coe™ | 
PRINT ® RUN” 

PRINT ~ 

star tela “FOR EXAMPLEs TO USE THE FUNCTION YeXt2 YOU WOULD TYPE:” 
PRINT 

PRINT “ 1 GO TO 200” 

PRINT 300 DEF FNY(X)#xX12" 

PRINT ®* RUN” 

PRINT ~ 


PRINT “YOU MIGHT TRY THAT AS YOUR FIRST RUN-” 

PRINT “END EACH LINE» INCLUDING ‘RUN’s WITH THE ‘*RETURN® KEY.” 
STOP 

REM COMPUTATION SECTION OF PROGRAM 

PRINT “WHAT ARE THE ABSCISSAS OF THE END POINTS OF THE SECTION” 
PRINT “TO BE CONSIDERED (SMALLER FIRST: PsQ5"3 

INPUT P.Q 

IF P<xQ THEN 250 

PRINT “P CANNOT BE GREATER THAN Qi" 


GO TO 220 

PRINT 

PRINT “NUMBER OF SUM OF % CHANGE” 
PRINT “SUBINTERVALS APPROXIMATING AREAS In SUM* 
PRINT Reweneeeceaene Senses aecanaenesooneonoa aeeeaonon" 
LET E10 


DEF FNY(X)#£X?t2 

FOR N#1i TO 9 

LET E=2t(N-1) 

LET H=(Q-P)/E 

LET S=0 

FOR I20 TO CE-1) 

LET G#FNY(P+1*H+H) ¢FNY(P+1*H) 
LET MeFNY(P+!*A+H) -FNYC(P+1 4H) 
LET L#3-14159*G6*S5QR(M#M+H*H) 
LET S#S+L 

NEXT I 

IF Sis0 THEN 405 

LET W2#100*CABS(S-S1))/((S+S1)72) 
IF Sis0 THEN 405 


) PRINT EsSse” “sW 


IF W<1E=2 THEN 420 
GO TO 407 
PRINT EsSe” “s”*NOQ PREVIOUS VALUE” 
LET Si=S 
NEXT N 
PRINT 
PRINT “WOULD YOU LIKE TO TRY NEW END POINTS (1-°YESs O-NO)"3 
INPUT Q1 
IF Q1>0 THEN 220 
PRINT “TO ENTER A NEW FUNCTION YOU NEED ONLY RETYPE LINE” 
PRINT "300 AND *RUN*'s SEE INSTRUCTIONS FOR MORE DETAILS.” 
PRINT “IF YOU ARE FINISHED» TYPE ‘1° AND THE *RETURN’ KEY" 
END 
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DISCIPLINE CALCULUS - GRADE 13 
SUBJECT VOLUME OF ANY SOLID 
OF REVOLUTION, (ANALYTICALLY 
| DEFINED) | 


PROGRAM NAME VOLSOL 


DESCRIPTION: 


Through the use of cylindrical discs, the program approximates the 
volume of a solid of revolution generated by rotating about the x-axis the 
area bounded by y =f(x), the x-axis, and the vertical lines x=a and x=b. 


OBJECTIVES: 


To help the student understand the analytic procedures and to 
appreciate the nature of the limiting process. 


PRELIMINARY PREPARATION: 


The class should be reminded of the formula for the volume of a 
cylinder, and the way in which a cylinder is generated by rotating a 
rectangle about one of its sides. 


DISCUSSION: 


It would be desirable to make use of an overhead projector trans- 
parency to display the cylindrical discs generated. 





Rotated about the 
x-axis 


Approximation of Volume of Revolution by Cylindrical Discs 
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Math 
VOLSOL 


VOLUME OF A SOLID OF REVOLUTION 


THIS PROGRAM USES CYLINDRICAL DISCS TO APPROXIMATE 
THE VOLUME OF A SOLID OF REVOLUTION. THE SOLID IS GENE- 
RATED BY ROTATING ABOUT THE X-AXIS THE AREA BOUNDED BY 
YsF(X)»s THE LINES XsA AND X=Bs AND THE X-AXISe 





TO INPUT YOUR FUNCTION OF X C(Y=FC(X)) TYPE AS FOLLOWS: 


1 GO TO 200 
220 DEF FNY(X)=eceee( YOUR FUNCTION OF Xdeccee 
RUN 


FOR EXAMPLE» TO USE THE FUNCTION Y=Xt2 YOU WOULD TYPE? 


1 GO TO 200 
220 DEF FNY(X)=Xt2 
RUN 


YOU MIGHT TRY THAT AS YOUR FIRST EXAMPLE. 
END EACH LINE» INCLUDING ‘RUN's WITH THE "RETURN' KEYe 


: | | ) 
- READY ; - a 
1 GO TO 200 
220 DEF FNY(X)=X1t2 
RUN 


| WHAT ARE YOUR VALUES FOR A AND B (SMALLER FIRST: AsB)? 005 


NUMBER OF SUM OF % CHANGE 
CYLINDERS CYLINDER VOLUMES IN SUM 
1 8) NO PREVe VALUEs OR IT WAS ZERO 
2 Ae 306-7959 NO PREV. VALUE» OR IT WAS ZERO 
4 939-5624 206-25 é 
8 1400 .955 49210714 
16 1669476 19216702 Pp 
32 1613-291 6 0614392 
64 1887-594 42097653 
128 1925-344 1.999911 
256 1944369 29881206 
512 1953-918 4911339 
we ae, 
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WOULD YOU LIKE TO TRY YOUR OWN ‘NUMBER OF CYLINDERS’ (1-YES=» 
HOW MANY CYLINDERS WOULD YOU LIKE TO TRY? 700 


FOR 700 CYLINDERS THE VOLUME IS 1956«487 - 

WOULD YOU LIKE TO TRY AGAIN C1-YESs» O-NO)? O 

ek ok & 

WOULD YOU LIKE TO TRY NEW VALUES OF A AND B (1-YESs O-NO)? O 
TO USE A NEW FUNCTION YOU NEED ONLY RETYPE LINE 220 AND 
"RUN*®e SEE INSTRUCTIONS FOR MORE DETAILSe 

IF YOU ARE FINISHEDs TYPE ‘1° AND THE ‘"RETURN' KEYe 

READY 

1 
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O-NO)? 1 


Math 
VOLSOL 


REM VOLUME OF A SOLID OF REVOLUTIONs Qe Je O'CONNOR, 8/1/68 
REM REVISED 6/24/70 CDe PESSEL) 
PRINT TABC15)3"VOLUME OF A SOLID OF REVOLUTION" 


PRINT 
PRINT" - THIS PROGRAM USES CYLINDRICAL DISCS TO APPROXIMATE" 


PRINT"THE VOLUME OF A SOLID OF REVOLUTIONe THE SOLID IS GENE-" 


PRINT"RATED BY ROTATING ABOUT THE X-AXIS THE AREA BOUNDED BY" 
PRINT"Y=FCX)s THE LINES X=A AND %=Bs AND THE X-AXIS-" 


PRINT 

PRINT"TO INPUT YOUR FUNCTION OF X CY=F(X)) TYPE AS FOLLOWS:" 
PRINT 

PRINT" 1 GO TO 200" 

PRINT" 220 DEF FNY(X)=eceeeC YOUR FUNCTION OF X)eeooe™ 
PRINT" RUN” 

PRINT 


PRINT"FOR EXAMPLEs TO USE THE FUNCTION Y=Xt2 YOU WOULD TYPE:" 
PRINT 


PRINT" 1 GO TO 200" 
PRINT" 220 DEF FNY(X)=x1rQ" 
PRINT" RUN" 

PRINT 


PRINT" YOU MIGHT TRY THAT AS YOUR FIRST EXAMPLE «"* | 

PRINT"END EACH LINE» INCLUDING 'RUN'> WITH THE "RETURN® KEY." 
STOP 
PRINT 

PRINT" WHAT ARE YOUR VALUES FOR A AND B (SMALLER FIRST: AsB)"3 
INPUT A»sB 

IF A<B THEN 214 

PRINT"A MUST BE SMALLER THAN BI" 


GO TO 200 
PRINT 
) PRINT’NUMBER OF SUM OF % CHANGE" 
PRINT" CYLINDERS CYLINDER VOLUMES IN SUM” 
PRINT" --------- Tete rm mmewnen ss esceea" 
LET Vl=0 


DEF FNY(X)=X12 

FOR N=1 TO 10 

LET Dz=2t(N-1) 

LET H=(B-A)/D 

LET Vs0 

FOR I=0 TO (¢(D-1) 

LET Y=FNYCA+1 *H) 

LET V=V4t3e14159*Y*Y*H 
NEXT I 

IF Vl=0 THEN 315 

LET P=100*(ABSCV-V1))/V1 
PRINT DsVs" 'yP ‘ 
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IF P<e5 THEN 330 

GO TO 318 

PRINT DsVs" NO PREV. VALUEs OR IT WAS ZERO” 
LET Vl=V 


NEXT N ms 


PRINT 
PRINT 
PRINT" WOULD YOU LIKE TO TRY YOUR OWN ‘NUMBER OF CYLINDERS'* C1-YES"3 
PRINT"s O-NO)"'3 ’ 
INPUT Q5 LS 
IF Q5<1 THEN 377 

PRINT"HOW MANY CYLINDERS WOULD YOU LIKE TO TRY" 

INPUT D1 

IF Dl>1 THEN 343 

PRINT'NUMBER OF CYLINDERS MUST BE GREATER THAN ZERO!" 

GO TO 334 

IF D1<1000 THEN 347 . 

PRINT"THIS IS A VERY LARGE NUMBER OF CYLINDERS AND MAY TAKE" 
PRINT"A LONG TIME TO RUN." 

LET v2=0 

LET H1=(B-A)/D1 

LET DI=INTC(D1+-5) 

FOR 120 TO (Dl-1) 

LET Y1=FNYCA+1*H1) 

LET V2=V2+3-14159*Y1¥*Y1*H1 

NEXT I 

PRINT 

PRINT "FOR "D1" CYLINDERS THE VOLUME IS "ve" .* 

PRINT 

PRINT" WOULD YOU LIKE TO TRY AGAIN (1-YES» O-NO)"'3 

INPUT Q6 

IF Q6>0 THEN 338 

PRINT 

PRINT!" 2% &&"" 

PRINT ; 
PRINT" WOULD YOU LIKE TO TRY NEW VALUES OF A AND B (1-YESs O-NO)"'S 
INPUT Q1 

IF Q1>0 THEN 199 

PRINT"TO USE A NEW FUNCTION YOU NEED ONLY RETYPE LINE 220 AND" we 
PRINT" *RUN*. SEE INSTRUCTIONS FOR MORE DETAILS." 

PRINT"IF YOU ARE FINISHED, TYPE ‘1* AND THE "RETURN' KEYe" 

END 


ve 
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